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الكمبيوتر وتكدولوجيا المعلومات 


الصف الثالث الإإعدادي 


الفصل الدراسي الثاني 
إعداد 
سمير حسن محمد د/ جمال الدين محمد أمين 
الإدارة العامة للكمبيوتر التعليمي مركز التطوير التكنولوجي 
خبير كمبيوتر خبير كمبيوتر 
الإدارة العامة للكمبيوتر التعليمي الإدارة العامة للكمبيوتر التعليمي 
مراجعة تربوية 
د/عيد عبد العزيز فتح الباب د/مدحت محمد كمال 
مركز تطوير المناهج والمواد التعليمية مركز تطوير المناهج والمواد التعليمية 
مراجعة علمية 
أ.د/ محمد فهمى طلبة أ.د/ نادية حجازی 
مستشار الوزير لتكنولوجيا المعلومات مستشار الوزير لتكنولوجيا المعلومات 


أ.د/ أحمد محمد محمود طوبال 
معاون الوزير لتكنولوجيا المعلومات 


تنويه: بيانات المؤلفين والمراجعين حسب طبعة الكتاب ۲١٠۳/۲۰۱۲‏ 








الحمد لله حمدا طيبًا مباركًا فيه كما يحب ويرضي. وأصلي وأسلم 
وأبارك علي سيدنا محمد وعلي آله وصحبه أجمعين. وبعد. 


أبناؤنا الطلاب نقدم لكم هذا الكتاب استكمالا لما تم عرضه في 
كتاب الفصل الدراسي الأول لمادة الكمبيوتر وتكنولوجيا المعلومات. 
بعد تعديله وتنقيحه من مجموعة من أساتذة الجامعات والخبراء 
المتخصصين في هذا المجال ننشد فيه استكمال المعلومة التي حصلتم 
عليها في الفصل الدراسي الأول واستكمالا للهدف من دراسة هذا 
المنهج» بأسلوب مبسط ويسير كخطوة ثانية للسير في درب البرمجة 
مستكملا ما تم دراسته في كتاب الفصل الدراسي الأول. 


والله ولي التوفيق 
فريق العمل 




















الفصل الأول: البيانات 02312 


أنواع البيانات (0©5ملا1 12213). 

الثوابت والمتغيرات Variables)‏ & 601513001). 
جملة التخصيص (265510111116111). 

أولويات تنفيذ العمليات الحسابية. 

الأخطاء (0:015). 

أسئلة. 


.If ...Then ... Else التفرع باستخدام‎ 





التفرع باستخدام .Select...Case‏ 
أسئلة. 











الموضوعات رقم 





الصفحة 
استخدام الجملة 01...10[62)4آ. 
استخدام .Do while‏ 
الإجراءات .Procedures‏ 
الإعلان عن الإجراء ماںS؟.‏ 
الإعلان عن الدالة „Function‏ 
أسئلة. 
الفصل الرابع: التعدي الإلكتروني وہارااuط‏ طر٥‏ 
تعريف التعدي الإلكتروني. 


أشكال التعدي الإلكتروني. 


الوسائط الإلكترونية. 
أشكال التعدي الإلكتروني. 


كيف تحمي نفسك من التعدي الإلكتروني؟ 












الفصل الأول 


البيانات 1(212 





الفصل الأول 
البيانات 3123(] 


بنهاية تدريس هذا الفصل يكون الطالب قادرًا على أن: 


ا يعدد أنواع البيانات المختلفة (5©م/19 03143). 
1 يُختار نوع البيان (71/06 0343) المناسب. 
# يعلن عن المتغيرات (وعاط313/). 

“!ا یعلن عن الثوابت (6051823015). 

٠‏ يُوضح مفهوم جملة التخصيص. 

| يخصص فيم للمتغيرات .)١/30131©5(‏ 

1 يُحدد أولويات تنفيذ العمليات الحسابية. 
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الفصل الأول 


البيانات 1(212 





عزيزي الطالب درسنا في مادة الكمبيوتر وتكنولوجيا المعلومات بالفصل الدراسي الأول كيفية: 

ه إعداد واجهة البرنامج باستخدام لغة .(Visual Basic.NET)‏ 

٠‏ إدراج أدوات التحكم وضبط خصائصها في وضع التصميم من خلال نافذة الخصائص. 

8 عامل ما ال سيذة الكقسيوق واجسسسرراءات الا ات 
Procedure)‏ 04علاع) ومن خلالها تبين لنا أنه يمكن لمستخدم البرنامج أن يدخل قيم ذات 


أنواع مختلفة. وهو ما يتضح في نافذة النموذج التالية: 


تاريخ الميلاد T++*0-1T-V‏ 


النوع  ١'١‏ ذكر 


عدد أقراد الأسرة 





شكل )١-١(‏ واجهة مستخدم البرنامج بها مدخلاته 
نلاحظ أن البيانات (ياسمين تامر» ٠٠٠٠٠-٠۲-۷‏ أنثى» 5) عبارة عن أنواع مختلفة من البيانات 
٠‏ الاسم بيان حرفي. 
٠‏ تاريخ الميلاد بيان من نوع تاريخ. 
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الفصل الأول 


البيانات 1(212 


3 
1 م 


٠‏ النوع بيان من نوع منطقي. 
٠‏ عدد أفراد الأسرة بيان رقمي. 
وعند إدخال هذه البيانات يتم تخزينها مؤقنًا في ذاكرة الكمبيوتر (۸۸0)» وللتعامل مع هذه البيانات 


لابد أن يحدد لمكان حفظها في الذاكرة اسم ونوع حسب طبيعة البيان الذي يتم تخزينه. 


(Data أنواع البيانات (5©م/ا1‎ ٠١ 

تتعامل لغة (۲ .اوج8 اهناذذآلا) مع العديد من أنواع البيانات (5©ملا1 0343) التي 
يتم يقوم المستخدم بإدخالها وتخزينها مؤقتًا في ذاكرة الكمبيوترء وقد تكون هذه البيانات ناتجة من 
تنفيذ الأوامر والتعليمات الخاصة بالبرنامج ومن أنواع البيانات التي تتعامل معها لغة 
:(Visual Basic.NET)‏ 

(Numeric Data Types) البيانات الرقمية‎ ١ 
: وهي نوعان‎ 
ويُعلن عنها بالآتي:‎ )اnteوraا‎ Numeric أ- بيانات رقمية صحيحة (565لا1‎ 
.(Byte - Short - Integer - Long) 


ب- بيانات رقمية غير صحيحة -عشرية- (ع0لا1 Numeric‏ اNonintegra)‏ ويغلن عنها 
بالآتي: (Double - Single - Decimal)‏ 


-١‏ البيانات الحرفية (5©م/إ1 10313 0121/236161) ويُعلن عنها بالآتي: 
(String - Char)‏ 
۳- البيانات المتنوعة (Miscellaneous Data Types)‏ 


فهي تلك البيانات التي لا تندرج تحت تصنيف البيانات الرقمية أو الحرفية مثل: 
(Object - Date - Boolean)‏ 
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الفصل الأول 


البيانات 1(212 





عزيزي الطالب / لاحظ: 


> كل تصنيف من أنواع البيانات (1/065 0343) له أكثر من نوع. 


> كل نوع يشغل حيز تخزين في ذاكرة الكمبيوترء فمثلاً النوع (117169©1) يشغل 4 81/665 
من حجم الذاكرة. 

> كل نوع ایا له حد أدنى وحد أقصى من القيم يطلق عليها مدى هوه .۸R‏ فمثلا نوع 
البيان (56/ا8) الحد الأدنى له القيمة 0 والحد الأقصى 255. 





(Constants & Variables) الثوابت والمتغيرات‎ ۲-١ 


Constants الثوابت‎ 1-1-1 


عبارة عن أماكن محجوزة في ذاكرة الكمبيوتر )۴۸M(‏ عند الإعلان عنها يتحدد لها اسم 
ونوع (١ملآ‏ 0363)» وتأخذ قيمة ثابته لا تتغير أثناء سير البرنامج» مثل: بعض الثوابت الرياضية 
كقيمة ط أو بعض الثوابت في الفيزياء كعجلة الجاذبية الأرضية وسرعة الضوء وسرعة الصوت ..إلخ 
جميعها قيم ثابتة لا تتغير. 
شروط تسمية الثوابت والمتغيرات 


عند تسمية الثوابت والمتغيرات يفضل أن يكون الاسم معبرًا عن الغرض منه بحيث: 

.)_( يبدأ اسم المتغير بحرف أو علامة‎ -١ 

؟- ألا يحتوى الاسم على الرموز والعلامات الخاصة مثل (9,*,“,-,+..) وغيرها. 

*- ألا تستخدم الكلمات المحجوزة لدى لغة )/8.۸٤1(‏ في تسمية الثوابت والمتغيرات مثل: 

.(Dim, Single, As) 
ملاحظة‎ 

كما يجب اختيار النوع المناسب لكلٍ من الثوابت والمتغيرات -والتي سبق توضيحها في أنواع 

البيانات- بحيث تتناسب وطبيعة البيانات التي سيتم تخزينها فيه. 
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الإعلان عن الثوابت (Constants Declaration)‏ 


يستخدم الأمر (001751) في الإعلان عن الثوابت في لغة 1/8.1017. كما يتضح بالصيغة التالية: 


Const Constant_Name As Data Type = Value 


2051 أمر الإعلان عن الثوابت. 

:Constant_Name‏ اسم الثابت. 

ما ه: نوع البيان المخزن في الثابت. 

© القيمة الثابتة التي سيتم تخزينها في الثابت المعلن عنه. 


الكود يعني: الإعلان عن ثابت باسم )C_۸1۳٠(‏ في الذاكرة» نوعه حرفي .)5)۲١9(‏ وتم تخصيص 
القيمة النصية 'جمهوربة مصر العربية" أثناء الإعلان. 


e Const pi As Single = 22/7 OR Const pi As Single = 3.14 


الكود يعني: الإعلان عن ثابت نوعه رقمي عشري (©51701) باسم (أ0) في الذاكرة» وتم تخصيص 
القيمة 3.14 01 22/7 أثناء الإعلان. 


e Const BirthDate As Date - 2011# 
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البيانات 1(212 


الكود يعني: الإعلان عن ثابت نوعه ار باسح ( es‏ 
في الذاكرة» وتم تخصيص القيمة ري تفاع الافلدن, 


عزيزي الطالب / لاحظ: 


> إذا كانت قيمة الثابت حرفية توضع بين علامتى " ". 


> إذا كانت قيمة الثابت تاريخ أو وقت توضع بين علامتي # #. 





تدريب )١-١(‏ الإعلان عن الثوابت (Constants Declaration)‏ 


عزيزي الطالب» بمعاونة معلمك نفذ ما يلى» لإعداد برنامج بلغة ۷/8.٤‏ يستقبل قيمة رقمية 
لنصف قطر دائرة» فيحسب مساحتها ومحيطها عند الضغط على زر أمر 8101101. 

علمًا بأن: مساحة الدائرة = 7۲7١2‏ ومحيط الدائرة = 27۲۲ حيث: ۲ تمثل نصف القطرء 
=r‏ 22/7 
)١(‏ صمم نافذة النموذج (1011) كما هو موضح بشكل :)١-١(‏ 


29 مساحة ومحيط الدائرة 


ات 





شكل )5-١(‏ واجهة المستخدم المطلوب إعدادها 
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البيانات 1(212 





(۲) افتح نافذة الكود بالضغط على مفتاح (7)» أو بأي طريقة أخرى ثم اضف إجراء 
الحدث (1ع611) لکل من زري الأمر (810110111,810110172) كما هو موضح 
بشكل :)"-١(‏ 


E Public Class Form3 


kivate Sub Buttonl Llick(ByVal sender As Lbject, By" 






End Suk 


givate Sub Buttonz Click (ByVal sender As Ubject, By" 


Enid Suk 
End Class 


شكل )"-١(‏ إضافة إجراءات الأحداث (Event Procedures)‏ لنافذة الكود (Code Window)‏ 


عزيزي الطالب سوف نكتب الكود الخاص بحساب 
مساحة الدائرة باستخدم إجراء الحدث 
(ا4001_©116نا8) ومحيط الدائرة باستخدام إجراء 
الحدث ()ءاا٥_2١٥)٤ا8)‏ وتظهر النتيجة أحدهما. 





5( فى نطاق إجراء الحدث «(Button 1_Click)‏ اكتب الكود (Code)‏ الخاص بحساب مساحة الدائرة. 
واعرض الناتج داخل أداة التحكم عنوان (130612) عند النقر على (810440111) كما هو موضح بشكل 
(4-1): 

Private Sub Buttonl _111 )ا ءات‎ 81:51 sender A 


Lim Radius As Single 
Const pi As Single = بر يت‎ 7 


15031 115 = TexTEOXlI. TeET 
Label2. Text = p1 * Radius ”“ 2 
End Sub 


شكل )٤-۱(‏ كود (©0006) حساب مساحة الدائرة 
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البيانات 1(212 
٠ه‏ تم الإعلان عن متغير باسم (15301005): ونوعه رقمي عشري هءاوہSi.‏ 


٠‏ الإعلان عن ثابت باسم (أم)» ونوعه رقمي عشري ©2»51701 وتم تخصيص القيمة 
الثابتة له 22/7. 


ه وضع القيمة التي تم إدخالها في صندوق النص في المتغير (sںiله۸).‏ 
ه٠‏ حساب مساحة الدائرة بالتعبير (2 ^ 530105 * أم)» واظهار الناتج في أداة التحكم 
.(Label2)‏ 
)٤(‏ نفذ أو شغل البرنامج من زر 6510199116 543/4 أو اضغط (۴5)» ثم ادخل نصف القطر. واضغط 
على زر 'مساحة الدائرة". كما هو موضح بشكل :)5-١(‏ 


2ه مساحة ومحيط الذائرة 


أدخل نصف القطر 


اد 


چ 


مساحة الدائرة محيط الدائرة 
111 ,سد 





شكل )5-١1(‏ ناتج حساب مساحة الدائرة بمعلومية نصف القطر 


(5) تأكد من الناتج الذي حصلت عليه بعد تشغيل البرنامج. 


بنفس الطريقة عزيزي الطالب حاول بمعاونة زملائك وتحت إشراف معلمكء كتابة كود 
البرمجة الخاص بزر الأمر (5810440172) لحساب محيط الدائرة. 
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تدريب )١-١(‏ تحديد نطاق إعلان المتغيرات )١/3031©5(‏ والثوابت (Constants)‏ 


عزيزي الطالب هناك مستويات للإعلان عن الثوابت والمتغيرات ينبغي عليك مراعاتهاء 
فمثلًا إذا أضفنا الكود الخاص بحساب محيط الدائرة كما يلي: 


Private Sub Buttonl Click{ByVal sender As طن‎ 
îm Radius As Single 
gn nst pi As Single = 22 / 7F 
Radius = TexTtBOK] . Text 
LabelZ. Text = pil * Radius * 2 
End Sub 





Pri yj Mame ‘Radius’ is not declared. (ByVal sender As Obj ® 


Eadius = او عم‎ _ Tet 
Lab . Text ح‎ 21 * Radius * 2 
End Suk 


شكل )5-1١(‏ كود (©0006) حساب مساحة الدائرة ومحيطها 


فسوف تظهر رسالة خطأ معناها عدم التعرف على المتغير (530105) والثابت (01), حيث تم الإعلان 
عنهما في الإجراء الخاص بزر الأمر 1 و وبالتالي فهما غير معرفين في الإجراء الخاص بزر 
الأمر 0664012ا8. 


ويمكنك التأكد من ذلك أيضًا من المستطيل الأصفر إذا وجهت مؤشر الفأرة إلى المتغير (أم) في السطر 
الثاني كما هو موضح بشكل (0-1): 


Private Sub Button Click{ByVal sender As Lb] 





Radius = TeztBOKE 41 
Name 'ام'‎ Is not declared, 





LalelZ#.,. Text = 9 * 2501115 * 2 
End Sub 


شكل )١-١(‏ بيان الخطأ الموجود في الكود (©6006©) 
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ولحل هذه المشكلة إما أن نعيد إعلان المتغير (3011005) والشابت (أم) في نطاق إجراء 
الحدث (كان1١ن)_8100110112)‏ كما هو موضح بشكل (۸-۱): 


Private Sub Buttonl Click(ByVal sender As و نامع وطن‎ 
[1111 Radius As Single 
Const pi As Single = 22 “ىر‎ 7 
Radius = TexTBOoEK] .Text 
Label2. Tet = p1 * Radius * 2 
End Sub 


Private Sub Buttonz Click(ByVal sender As UbjJect, 
Dim Radius As Single 
Const pi As Single = 22 / 7 
Radius = TeEXETBOEK] . Text 
Labeڳl2.‎ Tet = 1ج‎ * Radius * 2 
End Sub 


شكل )١-١(‏ الكود (©000) بعد إعلان المتغير (53010015!) والثابت (أم) 


أو نقوم بالإعلان عن المتغير (3011015]) والثابت (أم) على مستوى التصنيف (507203) وبالتالي لا 
نحتاج إلى الإعلان عنهما على مستوى إجراء الحدث لكل من زر الأمر )Bu٤٤٥۸1(‏ أو .)Button2)‏ كما 
هو موضح بشكل :)5-1١(‏ 


E Fublic Class 5203 
Dim Radius As Single 
Const pi As Single = 22 / 7 
Private Sub Buttonl LClick (ByVal sender As 
Radius = 1 مظ ىده‎ 1 1 221 
Label2Z2.Text = pil * Radius * 2 
End Sub 





Private Sub Buttonz2 Click (EByVal sender As 
Radius = TeFETBOEKE1I - 1221 
LabelZ.Text = pi1 ™* Radius ™ 2 

End Sub 


End Class 
)150103( إعلان المتغير (5301005!) والثابت (آم) علي مستوى التصنيف‎ )1-١( شكل‎ 
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نحصل على الناتج» كما هو موضح بشكل :)٠١-1١(‏ 


82 مساحة وعحيط الذائرة 


أدخل نصف القطر 
ا 


مساحة الذائرة محيط الذائرة 





TA, TAOVITIVT TV 


أ مساحة ومحبط الدائرة 
عه عم 55 


أدخل نصف القطر 
۲ 


. مساحة الدائرة. 


وعند تشغيل البرنامج بالضغط على مفتاح (۴5) لعمل (99119/ا16 51314)؛: وادخال نصف القطر› 


محيط الدانرة 


1/1/0 





شكل )٠١-١(‏ واجهة المستخدم بعد استخدام زر مساحة الدائرة وزر محيط الدائرة 


Variables المتغيرات‎ ۲-١ 


عبارة عن أماكن محجوزة في ذاكرة الكمبيوتر (4111/) عند الإعلان عنها يتحدد لها اسم ونوع ( 02313 
©ل1): وعادة ما تتغير قيمتها أثناء سير البرنامج ويمكن أن يأخذ المتغير قيمة ابتدائية تدسمى 
(©0ااه/ا 1016131) ثم تتغير قيمته أثناء سير البرنامج» مثل: سعر سلعة أو منتج - قيمة الضريبة - 


عنوان موظف ..إلخ وجميعها بيانات يمكن أن تتغير. 


الإعلان عن المتغيرات (Variables Declaration)‏ 


يستخدم الأمر (010) في الإعلان عن المتغيرات في لغة 8.0/57/اء كما يتضح بالصيغة التالية: 





0 أمر الإعلان عن المتغيرات. 
:/arlable_Name‏ اسم المتغير. 


۴ 313: نوع البيان الذي سيتم تخزينه في المتغير. 


|2 |11113|: القيمة الابتدائية التي يتم تخزينها في المتغير المّعلن عنهء وهذا الجزء اختياري. 
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الفصل الأول 


البيانات 1(212 











الفصل الأول 


البيانات 1(212 









الكود يعني: الإعلان عن متغير باسم (10317©6_) في الذاكرة» نوعه حرفي (501119). 


e Dim Total_Price As Single 


الكود يعني: الإعلان عن متغير نوعه رقمي عشري (©51191)» باسم (ع2:16_ا19013) في الذاكرة. 


e Dim Today As Date - 2011# 


(اكمل) 
الكود يعني : الإعلان عن متعير نوعه e‏ ) 0 ). باسم ) ل 0 ( 
في الذاكرة» وتم تخصيص القيمة الابتدائية التالية ( O‏ ل 


تدريب )"-١(‏ الإعلان عن المتغيرات )١/231131©5(‏ 


بالتعاون مع زملاءك» وبمساعدة معلمكء اكتب كود ۷8.۸٤۲‏ اللازم للإعلان عن المتغيرات 
التي نحتاجها لاستقبال البيانات التي يقوم المستخدم بإدخالها من خلال نافذة نموذج 'تسجيل مستخدم 
جديد". وذلك باتباع الخطوات التالية: 
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الفصل الأول 
البيانات 12262 


(١ ) 0‏ صمم نافذة النموذج كما يلي: 


تاريخ الميلاد 


النوع 


عدد أقراد الأسرة 





شكل )١١-١(‏ واجهة المستخدم المطلوب إعدادها 


(۲) استعن بالجدول التالي في الإعلان عن المتغيرات: كما هو موضح بالجدول :)١-١(‏ 


عناوين بيانات أدوات التحكم | نوع البيان (79/06 02348) ١‏ أسماء المتغيرات 


كار بخ الميلاد تاريخ )Da†e(‏ 








E ساس‎ 6 


جدول ( (۱-۱) القيم المتوقع إدخالها من مستخدم البرنامج 
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الفصل الأول 


البيانات 1(212 





(؟) اضف إجراء الحدث (Event Procedure)‏ 
والذي يطلق علية ايضا معالج الحدث (/,©113011 ٤۸مvع٤)‏ من خلال الضغط 
1116 0_(] على زر "تسجيل". 


)٤(‏ اكتب الكود التالي: 


Private Sub 1ش /ألاظ )عات 021_)11غ1غاناظ‎ sen 
Dim U Name As String 
Dim U B ÛD As Date 
Dim U Gender As Boolean 
Dim U tC F As Integer 
End Sub 


شكل )١5-1١(‏ الإعلان عن المتغيرات 
"-١‏ جملة التخصيص (85510101176111) 
يقصد بالتخصيص (85516910116111) وضع أو تعيين قيمة لثابت أو متغيرء وجملة 
التخصيص عبارة عن طرفين بينهما علامة (-). الطرف الأيسر يمثل اسم المتغير أو الثابت الذي 
يستقبل أو تخزن فيه القيمة بالطرف الأيمن» ويتضح ذلك من المثال التالي: 
e Area = 5 * 3‏ 
يتضح من الكود أنه تم تخصيص حاصل ضرب الرقمين (3 , 5) للمتغير 2162. 


Variable 


Variable 


Expression B=A+3* 2 


تتحدد القيمة - Value‏ 
"أملالوع" = TextBox1].Text‏ 3 الخاصة Property‏ 
حسب طبیعه 
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الفصل الأول 


البيانات 1(212 









(Variables) خصيص " قيم للمتغيرات‎ 53 )٤-١( تدريب‎ ١ 


أولّاء اكمل الجدول مستعيتًا بكل من نافذة النموذج وكود الإعلان عن المتغيرات: 








Private Sub Buttonl Click (ByVal ser E 
Dim U Name As String ا‎ 
Dim U 8 D As Date ح144[آ| 1 ا تددم‎ 
Dim U Gender As Boolean النوع © ذكر © انقتی‎ 
Dim UC F As Integer o الك اد س2‎ 2 
End Sub 














e‏ اح حم حم 
اللستسسافيت SE‏ 
ساس لست لسا 


ثانيًا: اكتب جمل التخصيص كما هو موضح بشكل :)١7-١(‏ 
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الفصل الأول 


البيانات 1(212 






Private Sub Buttonl Click(EByVal sender As Systen 
Dim U Name As String 
Dim U BB DÛ As Date 
Dim U Gender As Boolean 
Dim U CC 8 As [Integer 


U _ Name = TextEoxl.Text 

UBD = TegtBokt2. Text 

If RadioButtonl1l . Checked = True Then 
U Gender = True 

End If 

If RadioButton1l . Checked = False Then 
U Gender = False 

End If 

UCL F = TegtBoKS .Text 

End Sub 


شكل )١-١(‏ كتابة جمل التخصيص 


تم اختبار الخاصية (016©1©0) لأداة التحكم (1١٥)†8u٥الھ۸)‏ باستخدام جملة (۴ا) وسوف 


یتم شرحها لاحقاء فإذا كانت الخاصية (0166©1©0) قيمتها (©1:00) يخصص للمتغير (6©612061_لا) 
القيمة (©1900) أما إذا كانت العكس يخصص للمتغير(6©6170161_لا) القيمة (©3156). 





تدريب )0-١(‏ استخدام المتغيرات (sعاطاVaria)‏ 


لتعديل نافذة النموذج لتظهر كما يلي» وذلك لعرض قيم المتغيرات في مربع العنوان: 


ياسمصين تامر 
eVIITIT< <O‏ 
False‏ 

0 


Te عن م‎ N T-VY 


التوع 1) در 


لات آقراد الأسرة 








رالكمبيوتر وتكنولوجيا المعلومات - الصف الثالث الإعدادي |16 









الفصل الأول 


البيانات 1(212 
بالتعاون مم زملاءك وبمساعدة معلمك. اتبع الخطوات التالبة: 


)١(‏ اضف أداة التحكم ١35615‏ كما يلي: 


تاريخ الميلاد 
النوع 


عدد آقراد الأسرة 





شكل )١5-١(‏ أداة تحكم عنوان (135©1) بعد ضبط خصائصها 
(۲) اضبط خصائص أداة التحكم 35165 ا كما هو موضح بجدول )5-1١(‏ و شكل :)١5-١(‏ 


Size, Location 


الفأرة - أو نافذة الخصائص أو بالكود 


BorderStyle FixedSingle 


جدول )١-١(‏ قيم خصائص أداة تحكم عنوان (135©1) 





(۳) افتح إجراء الحدث بالضغط (0_61161) على الزر 'تسجيل'. 
(4) اضف سطر الكود التالي في نهاية الإجراء : 


Me.Label5.Text = UserName &vbCrLf & UserBirthDate & vbCrLf & _ 
UserGender & vbCrLf & UserNoFamily 
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الفصل الأول 


البيانات 1(212 





1 الإعلان عن العتغيران‎ 
UserName As String 
UserBircthDate As Date 
UsertGender As Boolean 
UserWNoFamily As Integer 


س تغخصيص قيمع لههدة الهستغيرات 1 


UserName = Me. TeEKTBOK1I1 . Text 

UserBIircthDate = Me. TeETBOzKZ . Tet 

If RadiocButton1l . Checked = True Then 
UserGender = True 

Else 
Usertender = False 

End If 

UserNoFami ly = Me. TeEETBOKS . 1 


سس استخداع هدذة المتغيرات ' 


He. LabelS5. Text = UserName < YIDLrLf & UserBirthDate 2 vbLrLf & _ 
UserGender & غ لاع اط‎ UsercNoFamily 
End Sub 


شكل )٠١-١(‏ الإعلان عن المتغيرات وتخصيص قيم لها مع كتابة ملاحظات R٠٣2)‏ 


Private Sub Buttonl Click (ByVal sender System. Ubject, ByVal e As S5 





الكود السابق عبارة عن جملة تخصيص (8551011116171) لمجموعة المتغيرات (1/311361©5) 
ببيانات أدوات التحكم في نافذة 'تسجيل مستخدم جديد': 
م تعبر عن نافذة النموذج (50110) الحالية. 
يفصل بين كل متغير والآخر بمعامل الربط &. 


الكلمة المحجوزة ((0111/) تستخدم في إنشاء سطر جديد. 
٠‏ تستخدم علامة (_) حتى يمكن كتابة سطر الكود على أكثر من سطر في حالة إذا كان سطر الكود 
(©00©) طويل بعض الشيء وذلك للتنظيم وتسهيل عملية قراءة الكود (©06001). 
» يستخدم المبرمج الأمر )۴٠۳(‏ في كتابة ملاحظات يمكن الرجوع إليها داخل الكودء ولا يتم ترجمتها. 





() شغل البرنامج بالضغط على مفتاح )۴5( لعمل „(Start Debugging)‏ 
)١(‏ ادخل بيانات استمارة التسجيلء: ثم اضغط زر 'تسجيل" كما هو موضح بشكل :)١5-1١(‏ 
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الفصل الأول 


البيانات 1(212 


تاريخ الميلاد 


النوع 


عدد آقراد الأسرة 





شكل )١5-1١(‏ واجهة المستخدم بعد استيفاء مدخلاته 


4-١‏ أولويات تنفيذ العمليات الحسابية 


فمثل: ما هو الناتج النهائي للمتغير ۸ في التعبير التالي: 


A =2+3*4 


الجواب الصحيح ليس (١۲)ء‏ بل )٠١(‏ ويرجع ذلك لأن هناك أولويات عند تنفيذ العمليات الحسابية 
فقد تم إجراء عملية الضرب أولًا ثم تم تنفيذ عملية الجمع بعد ذلك» وهنا نجد أو أوليات تنفيذ العمليات 
الحسابية هي : 

١‏ - تنفيذ العمليات داخل الأقواس من الداخل إلى الخارج. 

؟ - تنفيذ الأس. 

۳-تنفيذ عمليات الضرب أو القسمة من اليسار إلى اليمين أيهما أولًا. 

4 -وأخيرًا تنفيذ عمليات الجمع أو الطرح من اليسار إلى اليمين أيهما أولا. 

لذا لابد من تحري الدقة عند كتابة تعبيرات حسابيةء حتى نتجنب الوقوع في أخطاء منطقية 


.(Logical Errors) 
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الفصل الأول 


البيانات 1(212 


3 
1 م 


(Errors) الأخطاء‎ ٠١ 


حتى تتجنب الأخطاء التي قد تتسبب في ظهور رسائل خطأ أثناء كتابة الكود أو عدم تنفيذ 
الأوامر أو الحصول على نتائج خطأ. وقد لا يتم تشغيل البرنامج» وهناك ثلاثة أنواع من الخطاء : 


(Syntax Errors) أخطاء لغوية‎ -١ 


وهي أخطاء في الصيغة العامة لأوامر اللغة» ومنها على سبيل المثال: 
Din x As Single‏ 
تم الإعلان عن المتغير (×) ولكن كتبت كلمة (1110) خطأ. 
Const x As Single‏ 
تم الإعلان عن الثابت (×) ولكن لم تخصص له قيمة أثناء الإعلان. 


وهذا النوع من الأخطاء سهل الاكتشاف» حيث يظهر أمامك مباشرة أثناء كتابة الكود» ويمكن 
التغلب على هذا النوع من الأخطاء بمساعدة (191) حيث يعرض الشكل العام لأي أمر أثناء كتابته. 


)٠ 0016© E٤٣ ٥۴( ۲۔ أخطاء منطقية‎ 


وهذه الأخطاء تظهر عندما نحصل على نتائج خطأ بعد تشغيل البرنامج» وذلك بسبب صياغة 
تعبيرات حسابية أو منطقية بصورة خطأ فيؤدي ذلك للحصول على نتائج خطأ. كما هو موضح بالمثال 


به 
e‏ 


الاتي: 
عند حساب مساحة الدائرة استخدمنا الكود الآتي: 

Dim Radius As Single 
Const x As Single = 22 7 


Radius = TextBox]. Text 
Label2.Text = x + Radius ^ 2 
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الفصل الأول 


البيانات 1(212 





عدد تنفيد البرنامج أن يعطي أي رسائل خطأ. وسوف يعطي نتيجة. ولكنها خطأ. ودرجع 
ذلك لأننا في معادلة حساب مساحة الدائرة استخدمنا علامة (+) بدلا من علامة (*). 

وللتغلب على هذا النوع من الأخطاء يجب اختبار نتيجة تشغيل البرنامج» وذلك بحساب 
النتيجة مسبقاء فإذا تساوت مع ناتج تشغيل البرنامج يكون البرنامج صحيح وخالي من الأخطاء المنطقية 
.(Logical Error)‏ 


۳- أخطاء أثناء التشغيل (Runtime Error)‏ 


وهذه الأخطاء يتم اكتشافها أثناء تشغيل البرنامج فمثلا عند الإعلان عن متغير 
من النوع (46/ا8) وأثناء تشغيل البرنامج تم إعطاء قيمة أقل أو أكبر من المدى المسموح 
به أي أقل من (0) أو أكبر من (255).: فيظهر خطأ عند التشغيل مفاده أن القيمة خارج 
حدود المدي. 
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الفصل الأول 


البيانات 1(212 








:)١( تدريب‎ 


ناقش مع زملائك وتحت إشراف معلمك محتوى الشاشة التاليةء والجدول: 


تاريخ الميلاد T+ *O-1T-V‏ 
0 ذکر 


عدد آقراد الأسرة 


وق نص 
حرفى Character‏ 
TextBox‏ 


صند 
صندوق نص 
TextBox‏ 
صندوق نص 
عدد أفراد الأسرة رقمى Numeric‏ 
TextBox‏ 


زر اختبار 


RadioButton 











الفصل الأول 


البيانات 1(212 


















0 اكمل الجدول مستعيئا بالشاشة القالية: ا 
8 بطاقة طالب FE‏ | 
55-6 
اسم الطالب 
تاريخ الميلاد 
المجموع الكلي 
حالة الطالب ‏ #[تاجج] 0 راسب 
ST e‏ 


: 1 
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الفصل الأول 


البيانات 1(212 


0 حب يدبي رات الطاب كم O NT‏ 





8 اعرلتك قي إمه لالب عيضن e O‏ 


يع ةن الطاب كرت اال عير ال داك N‏ 







صورة الظالب يكن قضضنها ضهن الننانات الخرةة 
نة مرت الموظف يمكن_تصدفيا يمن البيافاك الرقمية الكير صبحيحة. 
)١١(‏ | كل بيان يُخزن في ذاكرة الكمبيوتر يشغل مساحة تخزينية ومدى معين حسب نوع البيان. 


نوع البيان يُحدد حيز التخزين الذي يشغله في ذاكرة الكمبيوتر ومعرفة الحد الأدنى 


(۱۲) 


وا لأقصى لقيمته. 


)١9(‏ | يُقصد بالمتغيرات في لغة ۷/8.۴ مخازن بذاكرة الكمبيوتر لها اسم ونوع. 
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الفصل الأول 


البيانات 1(212 


الإعلان عن المتغيرات مسألة شكليةء لأن لغة ۷/8.٤۲‏ تتعره 
نوعها تلقائيًا. 
الجملة التالية "51/1109 As‏ 73176_! 0110" للإعلان عن متغير باسم 51110 ونوعه 


©21_ا. 


الجملة التالية "511110 ım ۴_name As‏ ' للإعلان عن متغير باسم ©02317_] 


.-1111١0 ونوعه‎ 


يستخدم أمر "01 في الإعلان عن الثوابت. 


يستخدم أمر 001751 في الإعلان عن المتغيرات. 
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ج نيما ٤ء‏ 
ج ٠‏ 
جمهوزيه مر الكر الفصل الاول 
OR DAA‏ 0 7 
0 3 | کر ( | نا 3 
لبيانات 12242 






الثوابت في لغة 78.111 عبارة عن مخازن في ذاكرة الكمبيوتر لها اسم وقيمة لا تتغير 
أثناء سير البرنامج. 
الثوابت فى لغة 1غعلا.ظ/ا عبارة عن مخازن فى ذاكرة الكمبيوتر لها اسم وقيمة تتغير 


أثناء سير البرنامج. 


الخطأ الذي يظهر أثناء تشغيل أو تنفيذ برنامج ۷8.٤١‏ يطلق عليه خطأ لغوي 


.Syntax Error 


الخطأ الذي يظهر أثناء تنفيذ برنامج ۷8.٤۲‏ يطلق عليه خطأ أثناء التشغيل R١‏ 


.time Error 





ثانيًا: اختر الإجابة المناسبة لإكمال كل عبارة مما يلي: 
)١(‏ قيمة أسعار الأدوات المكتبية يمكن تصنيفها كبيانات: 
أ- رقمية صحيحة ب- رقمية غير صحيحة ج- متنوعة 
)١(‏ قيمة أسماء المواد الدراسية يمكن تصنيفها كبيانات: 


أ- متنوعة ب- رفميهة غير صحيحةه ج حركيه 
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الفصل الأول 
البيانات 1(212 


۳( نوع البيان المُخزن مؤقتًا فى ذاكرة الكمبيوتر يحدد: 
-١|‏ حيز تخزيني ومدى قيمته ١‏ ب- اسم وحيز تخزيني ج- حيز تخزيني وقيمته 
)٤(‏ الصيغة الصحيحة للإعلان عن متغير المرتب 53131 هى: 


Dim Salary As Integer أ-‎ 
Dim Salary As Byte أ-‎ 
Dim Salary As Decimal ج-‎ 
(ه) الصيغة الصحيحة للإعلان عن متغير العنوان أ٣ هي:‎ 


Dim City As String أ-‎ 
Dim City As Byte ب-‎ 
Dim City As Decimal ج-‎ 
هي:‎ ۴_١۳۴ الصيغة الصحيحة للإعلان عن متغير الاسم‎ )٦( 


Dim F Name As Integer أ-‎ 
Dim F Name As String ب-‎ 
Dim F_Name As Decimal ج-‎ 


(۷) الصيغة الصحيحة للإعلان عن متغير النوع :061016 هي: 


Dim Gender As Decimal أ-‎ 
Dim Gender As Integer ب-‎ 
Dim Gender As Boolean a 


(۸) الصيغة الصحيحة للإعلان عن متغير الاسم 803006_! هي: 


Din F Name As String أ-‎ 
Dim F Name As String - ب‎ 
Dim F_Name As Char ج-‎ 
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البيانات 1(212 









(9) الخطأ الذي يظهر بعد تشغيل برنامج بلغة ۷8.۸٤٣‏ يسمى: 
أ- Syntax Error‏ 

Logical Error ب-‎ 

Runtime Error ج-‎ 


)٠١(‏ الخطأ الذي يظهر أثناء كتابة كود بلغة 0017. ۷B‏ يسمى: 


Syntax Error أ-‎ 
Logical Error ب-‎ 


Run time Error E 


)١١(‏ الخطأ في ناتج تشغيل كود بلغة ۷8.٤‏ يسمى: 


Syntax Error أ-‎ 
Logical Error ب-‎ 


ج- Run time Error‏ 
(؟١)‏ الناتج النهائي للمتغير × للمعادلة "4 * 2 + 3 = 1" هو: 
أ- ١١‏ 
ب- ۲٤‏ 
يا 
)١(‏ الناتج النهائي للمتغير 7 للمعادلة "2 + 4 / 12 - 16 = ل" هو: 
أ- م 
ب- ١١‏ 
ج- ١6‏ 
)١4(‏ جملة الإعلان عن متغير "5141109 85 × 0i"‏ تعني الإعلان عن: 


أ- متغير اسمه × ونوعه حرفى 511150. 


ب- متغير اسمه 5111920 ونوعه ×. 


ج- متغير مجهول ليس له اسم ونوعه 511110. 
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)٠١(‏ جملة الإعلان الصحيحة عن متغير رقمي غير صحيح اسمه ۷ هي: 
Dim Y As Decimal =‏ 
ب- Y As Decimal‏ 
ج- Dim Y = Decimal‏ 
)١5(‏ اختر الاسم الصحيح للمتغير اسم الطالب: 
أ- st_ name‏ 
ب- st name‏ 


Name * * a 
اختر الاسم الصحيح لمتغير عنوان الموظف:‎ (١ ۷) 


5Cairo أ-‎ 
E Address ب-‎ 
(Address) Ed 


)١18(‏ اسماء المتغيرات التالية صحيحة على مستوى التصنيف 601701 ماعدا: (إثرائي) 


St text أ-‎ 
Text - ب‎ 
_St text Ed 


)١9(‏ عند الإعلان عن الثابت الرياضي ط نستخدم الكود: 


Dim Pi As Single أ-‎ 
Dim Pi As Single = 3.14 ب-‎ 
Const Pi As Single = 3.14 ج-‎ 
عند الإعلان عن ثابت عجلة الجاذبية الأرضية نستخدم الكود:‎ )٠١( 
Dim و‎ As Single أ-‎ 
Const 0 As Single = 9.81 ب-‎ 
Dim g As Single = 9.81 ج-‎ 
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)١١(‏ الإعلان عن متغير عدد أفراد السرة /!أم13_© بقيمة ابتدائية ۲ هو: 


Dim C Family As Single = 2 أ-‎ 
Const C Family As Integer = 2 ب-‎ 
Dim C_Family As Integer = 2 ج-‎ 
إذا وجد خطأ في نتيجة حساب مساحة مستطيل في برنامج» يعتبر هذا الخطأ:‎ )١١( 
Syntax Error أ-‎ 
Logical Error ب-‎ 
Run time Error ea 
يمكن‎ :."010605107 × As Byte" رسالة الخطأ التي تظهر عند كتابة الكود‎ )۲۳( 
Syntax Error أ-‎ 
Logical Error ب-‎ 
Run time Error ج-‎ 


)۲١(‏ الناتج النهائي للمعادلة " 2 / 4 + 2 - 12 = ل" هو: 
أ- 12 بحا 7 a‏ 
)١5(‏ الناتج النهائي للمعادلة " 2 / (4 + 2) - 12 = ل" هو: 


أ 12 نع 7 0 
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الفصل الثاني 





Branching التفرع‎ 


بنهاية تدريس هذا الفصل يكون الطالب قادرًا على أن: 


# يتعرف استخدامات الجملة الشرطية ورعط]...]|. 
٭ يستخدم جملة ٣٥ط .|۴...٣‏ 


© يستخدم جملة .If...Then...Else‏ 


+ يستخدم جملة ©6356... .Selec†‏ 
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ا أ هم 1 لا 

ست ل 5 تر اتوت | ظ 
E‏ 5 م 1 6 RL ١‏ ب 
EDE‏ التفرع Branching‏ 








درست في خرائط التدفق (11917/61214) أننا كثيرا ما نحتاج إلى التفرع واختيار تنفيذ 
مجموعة خطوات أو أخرى بناء على إجابة سؤال معين» وسوف تجد أن كتابة الكود (ع600) 
الخاص بالتفرع ما هو إلا تطبيق لخطوات الحل (81901141113) ولكن مع الالتزام بالصيغة العامة 
لأوامر اللغة المستخدمةء وللتعبير عن التفرع برمجيًا نستخدم جمل معينة في لغة البرمجة تتضح 
من خلال التدريبات التالية: 


۱۲ التفرع باستخدام جملة ٣٣٥٣‏ ...۴| 


If Conditional Expression (تعبير شرطي)‎ 0 


Code 


End If 





تحقق الشرط أو التعبير الشرطي عندئذ نفذ الكود 3500 إلى نهاية جملة ۴ ت ر 
0 ... ۴| سوف نتعرض لبعضها خلال الشرح. 


ولتوضيح المقصود بالتعبير الشرطي» نجد أنه يتكون من ثلاثة أجزاء 
معامل منطقي يسبقه قيمة مجردة أو قيمة متغير أو ثابت أو ناتج تعبيير 
حسابي يتم مقارنته مع قيمة مجردة أو قيمة متغير أو ثابت أو ناتج تعبير 
حسابي» فإذا تحة تحقق الشرط فهذا يعني أن نتيجة التعبيسر الشرطي 1:06 ويتم 
تنفيذ كود معين» وإن لم يتحقق الشرط فهذا يعني أن نتيجة التعبير الشرطي 
۴‰ ويتم تنفيذ كود آخر. والجدول التالي يوضح بعض الأمثلة: 
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التفرع Branching‏ 


Conditional Expressio¬ التعبير الشرطي‎ 


له ا .| يوجد (1) علامات 
بعد العلامه المنطقيه 1 


e 


قبل العلامة المنطقية 


IfA> 5‏ < أكبر من 


IfA< 5‏ 
> اصعر من 
م <> 5 If‏ 


=> أصغر من أو يساوي Variable‏ 


Or 


Constant أكبر من أو يساوي‎ <= 
a IfB = A+ 3 * 2 
كيمه من تعبير‎ 
3% 
Expression E SaaS 
لا يساوى‎ >< If A^2 = B/C 


= يساوي 


والشكل (۱-۲) يوضح كود جملة ۲٣۴۲۸‏ .. ؟! المكافئ لخربطة التدفق. 


If X >= 50 Then LE: ah 
MsgBox ("ناجح")‎ 


End if 





شكل (۱-۲) مثال مبسط على جملة ٣٣٥١‏ .. ؟! 


”> 8د 
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الفصل الثاني 
التفرع Branching‏ 


نفذ الخطوات التالية لإنتاج برنامج» ندخل له درجة الطالب فيظهر رسالة 'ناجح" في ظ 
صندوق رسالةء وذلك إذا كانت الدرجة أكبر من أو تساوى ٠٠١‏ وذلك عند النقر على زر 'نتيجة". ظ 


«» ٠# 














يكتب في اجراء الحدث (1161©) الخاص 


بزر الأمر (6600نا8): 


Frivate Sub Buttonl Click 


Dim x As Single 

KX = Me. TextBox] .TextL 

11 x 2= BÛ Then 
MsgBox ("gl") 

End If 











جدول )١-۲(‏ خريطة التدفق والكود لتدريب (؟5-١)‏ 
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ا 6 - ر ٍ/ 5 | کڪ |2 ١‏ | + © © 
5 4 لتفرع Branching‏ 





يمكن الاستعانة أيضًا بخطوات الحل (8190114117) التالية في كتابة كود البرنامج: 
١‏ - البداية 
؟ - ادخل الدرجة × 
۳ - إذا كان 50=<× 
إذن: 
١-*‏ اطبع ناجح 
؛ - النهاية 





(۳) شغل البرنامج بالضغط على (۴5). 
( ادخل القيم )۰ و .٠ه‏ و ۷( ثم اضغط >إ110ن) على زر 'نتيجة" في كل مرة. 
لاحظ: 
عدم ظهور صندوق الرسالة (11655306860) عند إدخال أي قيمة أقل من ٠ه‏ 


لأنه ناتج الشرط (©315) فيذفذ ما بعد (۴¡ 220) وهو (طنا5 "١‏ ع) أي إذهاء الإجراء 


.(Procedure) 


يمكن كتابة نفس جملة (If)‏ السابقة في سطر واحد ولا يتم وضع (؟! )٤ ٣۹‏ كما يلي: 


Private Sub Buttonl Click (ByVal send 


Dim x As Single 
3 عر‎ = Me. TextBox] . Text 
11 x 2= BÛ Then MsgBox ) " ("نا جع‎ 


End Sub 
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الفصل الثاني 
التفرع Branching‏ 


:If ...Then ... Else التفرع باستخدام‎ 5-١ 


تستخدم هذه الصيغة إذا كان هناك 0061© سيتم تنفيذه إذا كان ناتج تنفيذ الشرط 
مسا أو يتم تنفيذ كود آخر 60062 إذا كان ناتج تنفيذ الشرط ©53156. 


الصيغة العامة لهذه الجملة: 


If Conditional Expression (تعبير شرطي)‎ 0 


True 


Else 


Code2 


الكود إذا لم يتحقق 
الشرط مواج۴ ع1 End if‏ 


تدريب (75-5): عدل الكود السابق ليعطي صندوق رسالة (1/16553665801) به كلمة راسد 





إذا كانت الدرجة أقل من .5٠‏ كما هو مبين بجدول (5-7): 


يكتب في اجراء الحدث (كان1ا0) 
الخاص بزر الأمر (810660107): 

Dim 5 قث‎ 2 

K = Me, TekLBoKl . TexL 

11 2= SÛ Then 





جدول (۲-۲) خريطة التدفق والكود لتدريب (۲-۲) 
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الفصل الثاني 
التفرع Branching‏ 


١-تم‏ استخدام (2156) لتنفيذ الكود التالي لها إذا لم يتحقق الشرط أي أن نتيجته 
.(False)‏ 


؟ - يمكن كتابة جملة ( ؟!) في سطر واحد بدون ( 175 1170) كما يلي: 


جملة ۴| في سطر واحد سے 1 As‏ ع Dim‏ 


K = He. TexkLBoKl . Text 
11 x z= 30 Then MsgBoK ("geli") Else MsgBox اع"(‎ j") 





تدريب (۳-۲) بنفس الأسلوب السابق قم بتنفيذ مشروع (210[6©61) يحتوى على نموذج يستقبل 
قيمة من خلال صندوق نص» ثم يتم تخزينها في المتغير (/3)» وإظهار عبارة 'الرقم زوجي' أو 
'الرقم فردى" في صندوق رسالة. كما هو مبين بجدول (؟5-"): 


الكود (0006) ويكتب في اجراء الحدث 
)icاc‏ الخاص بزر الأمر(0660ا8): 


Dim N As Long 

N = He. TextBox] . Text 

If HNH Hod 2 = Û Then 
("الرقم زوجي ")نوها‎ 


Blse 
Hsgbox الرقم فردي")‎ "1 
End If 





جدول (۳-۲) خريطة التدفق والكود لتدريب (۳-۲) 
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الفصل الثاني 
التفرع Branching‏ 





تم تخصيص القيمة بصندوق النص للمتغير »)١(‏ ثم تم اختبار قيمة المتغير )١(‏ إذا كانت 
تقبل القسمة على ؟ بدون باقي من خلال التعبير الشرطي 0-(2 1100 )١/‏ ۴اء حيث تعود الدالة 
(1/100) بباقي قسمة المتغير (۸) على ١‏ فإذا كان باقي القسمة مساو للصفر فهذا معناه تحقق 
الشرط (1:06)» وتظهر رسالة (الرقم زوجي) في صندوق رسالةء واذا كان باقي القسمة لا يساوي 
صفرء فهذا معناه عدم تحقق الشرط (13156), وتظهر رسالة (الرقم فردي) في صندوق رسالة. 


۳-۲ التفرع باستخدام Select...Case‏ 


جملة 5©61661...0356 تستخدم عندما يكون التفرع معتمدًا على قيمة متغير 
(©31131/) واحد وهناك شروط كثيرة الأمر الذي يوفر العديد من الأكواد ويجعل الكود أكثر سهولة 
ووصوح. 


Select Case Variable 


Case value1 


Code 


Case value2 


Code 


Case value3 


Code 


Case else 


End Select 
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الفصل الثاني 
التفرع Branching‏ 





المطلوب عند إدخال درجة الحرارة من خلال مريع النص (167*450171) ثم النقر على 
الزر "اختبار" يعرض في (130612) عبارة 'فوق الصفر" أو عبارة 'تساوى صفر" أو عبارة 'تحت 
الصفر" لو حاولنا رسم خريطة التدفق المتوافقة مع (©035... 56©1©©1) سنجد كما هو موضح 
بشكل (؟-4): 





شكل (4-7) خريطة التدفق باستخدام 0356 .. 561661 الخاصة بتدريب ٤-۲‏ 


| 
من شكل (7-؛4) يتضح إمكانية التفرع إلى أكثر من فرعين من رمز اتخاذ القرار 
كود (©000)) مختلف. 
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يكون الكود كما يلى: 


Private Sub Buttonl Click (ByVal sender As Syste 
Dim deqree As Single 


Me . Label 2 . Text 
Case Ts © Û 
Me . Label 2 . Text 
Case 15 2» Û 
Me . Label 2 . Text 
End Select 
Latch ex As Exception 
(["ات خل عحعدد '""' ) عدت نان كار‎ 
Me . 1عده تا ناعدت"؟‎ . Focus (J) 
Me . TexLBOoOxXlI.TeExXlL = "'' 
End Try 





End Sub 
بالكود السابق إثرائي - اسأل معلمك‎ ٣۲۷ .... 03101 استخدام‎ 


تدريب )٥-۲(‏ 
من خلال دراستك في مادة الجغرافيا تعلمت الكثير من المفاهيم مثل المجرة والكوكب 
والنجم ... الخ؛ إنشي مشروع بحيث تكون واجهة المشروعء: كما هو موضح بشكل (؟5-1): 


نة ااه الكرية 


جسم معتم لايشع ضوءا ولا حرارة» ويستمد ضوءد 


حوزن من نجم قيب من 





شكل (؟5-1) واجهة المستخدم 


mn سے‎ 
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اكتب الكود اللازم» بحيث عند اختيار أي عذصر في مربع السرد والتحرير يظهر تعريفه في 
مرن انض 
ارشادات 
-١‏ اختر قيمة الخاصية (©1!!10]اناالاا) لصندوق النص تساوى (مں٣٣).‏ 
؟"- اضف العناصر (مجرة - كوكب - قمر - نجم - نيزك - شهاب) من خلال الخاصية 
Items)‏ لأداة التحكم .(ComboBoxX)‏ 
*- اكتب الكود التالي في إجراء الحدث (561661601706<61307960) الخاص بالأداة 


:(Com boBoX) 
Select Case ComboBox1l . SelectedIndezx 
LCase Û 
TextBoK] . Text = "تجمعات كييرة من التجوم المتتلقة الأعجام والأشكال والأتواء"‎ 
Case 1 


"جسم معتم لالشع ضوءا ولا حرارةء ويستمل ضصرءه وحرارته من نجم قريب متة" = ]1± .ex80x1؟‏ 
Case 2‏ 
"جسم معتم اصغر حجما من الكوكب برتيط به يفعل الجاذبية ويعكس قموء الشمس الساقط عليك" = TextBox1.Text‏ 


Case 3 

"جسم مقس: ملتهب بشع قرا وحرارة" = TextBox1. Text‏ 
Case 4‏ 

"جسم صلب فيدر بحترق جرننا عند احتكاكه بالغلاف الجري" = ×18 ,.t80x1×ع1‏ 
Case 3‏ 


"جسم سماوي صلب يسيج قى الققناء حول الشمس وبجرى قى السماء على فيئهة سهام ضوئية" = TextBox1., Text‏ 
Case Else‏ 


MsgBox (" pun liali ("برجى اختيار ال‎ 
End Select 


وس 


سے 


لاحظ عزيزي الطالب: أننا اعتمدنا فى كتابة الكود على ترتيب 5 0 
العناصر داخل الأداة (×080ط۳٥0٥)‏ حيث أن العذصر الأول | 15 
له ترتيب («1706) بحيث يكون ترتيب العنصر الأول صفرء د 0-0 
وترتيب العنصر الثاني ١‏ والثالث ؟ وهكذا. 

.)۴5( نفذ البرنامج من خلال الضغط على مفتاح‎ )٤( 

(5) اختر أي عنصر من مريع التحرير والسرد وتأكد من تعريفه. 
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الفصل الثاني 
التفرع Branching‏ 


)١(‏ اجب عن الأسئلة مستعيئًا بالكود التالي: 


If X >= 50 Then 
MsgBox ("ناجح")‎ 
End if 


أ- يتم إظهار صندوق الرسالة وعليه النص 'ناجح" عندما: ogy‏ 
ب- إذا كانت قيمة 50 = × فإن ناتج تنفيذ الكود هو: yy‏ 


ت- إذا كانت قيمة 62 = × فإن ناتج تنفيذ الكود هو: ا N‏ 
(؟) اجب عن الأسئلة التالية مستعيئًا بسطر الكود التالى: 
(العدد سالب) 7750201 مكلام (العدد موجب) 2150101 If x<0 Then‏ 
أ- اكتب التعبير شرطي في الجملة السابقة: 
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Dim x As Single 

XK = Me. TextBox] . Text 

11 x 2= BÛ Then 
MsgBox ("gli") 

End If 





ب- يتم تنفيذ الكود إذا وقع الحدث ................ على أداة التحكم a‏ 
ت - وو E‏ 

ث- ".1/16" في الكود تشير إلى: O‏ 

ج- إذا تم إدخال القيمة (50) في صندوق النص يكون ناتج تنفيذ الكود هو: 250 


(٤(‏ اكمل الجدول التالي بالكود اللازمء مستعيئًا بالصيغة العامة للجملة الشرطية 
sIF .. Then .. Else‏ 


If Conditional Expression Then 


Code 
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ا 






الفصل الثاني 
التفرع Branching‏ 





وذلك لإظهار صندوق رسالة يحمل كلمة '"مصر" إذا كانت قيمة المتغير /00101111) تساوي 


'مصر" أو يظهر صندوق رسالة يحمل كلمة '٣مروع":‏ 





(5) اجب عن الأسئلة التالية مستعيّنا بالكود: 


أ- إذا كانت قيمة 76 = × فإن ناتج تنفي ` 


Dim 5 قث‎ 


الكود هو: .......................... XK = He. TerLBoxkl.Texl‏ 
If x 2= 3Û Then‏ 
ب- إذا كانت قيمة 49 = × فان ناتج تذة 
ب - إل ل 9 إل دالج ھی ("ناجح") MsgBox‏ 
الكود هو: ا 00000 Else‏ 
MsgBox ("wl j")‏ 
ت- اعد کتابه الكود الخاص ب ؟! >اع0|ا8 Fnid IF‏ 
ليظهر على سطر واحد فقط. 
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(5) اجب عن الأسئلة التالية بعد دراسة الكود: 


أ- عَدَل الكود بحيث يظهر النص "الرقم زوجي" في مربع موسي يه 
N = He. TextLBokl . Text‏ 
عنوان 1112ء ويظهر النص "الرقم فردي" في مربع If N Mod 2 = 0 Then‏ 
عنوان ١35612‏ بدلاً من صندوق رسالة. ("الرقم روجي") Nsg80±‏ 
Else‏ 
ب- استبدل نوع المتغير N‏ ليصبح 1016061!. ("الرقم فردي")عرمظاوعا! 
End If‏ 


الفصل الثاني 
التفرع Branching‏ 


(۷) الكود التالي يستقبل أي رقم من صندوق نصء, ويقوم بتخزينه في متغيرء ثم يختبر قيمته فإذا 


كان العدد زوجي يظهر مريع رسالة بذلك, واذا كان عدد فردي يظهر مريع رسالة بذلك. 


المطلوب: اعد كتابة الكود بعد اكتشاف الأخطاء الثلاثة وتصويبها ليكون ناتج تنفيذه صحيحًا. 


J 


Dim X As Integer 8 
N = Me.TextBox1. Text 
If N Mod 2 = 0 

('الرقم زوجي ') 01501 15/! 


Else 


('الرقم فردي") 0 5و 15/! 
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EF: 























الفصل الثاني 
التفرع Branching‏ 






Private Sub Buttonl Click (ByVal sender As Syste 
Dim degree As Single 
Try 
cdleqree = Me. TexLBOoOXI . TextL 
Select Case degree 
ase Û 
Me . Label? . Tex = '" "صقر‎ 
Lasse Ts © Û 
Me . Label 2 . Tex — '" "ثحت الصشد‎ 
Case Is د‎ Û 
Me . Label 2 . Tex "قوق الصشد "' ح‎ 
End Select 
Latch ex As Exception 
MsqBOxX ("3كs ("ادخل‎ 
Me . TexLBOoOxXI . Focus )[( 
Me . TexLBOxX1I . Text = "''"' 
End Try 


End Sub 
استخدام 03161 .... ۲۲۷ بالكود إثرائي - اسأل معلمك‎ 


أ- الغرض من الكود هو: 


ث- نوع المتغير 0٥9۲٠٥٠‏ هو: 0 
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الفصل الثالث 


التكرار والإجراءات 





الفصل الثالث 


التكرار والإجراءات 


Looping & Procedures 


بنهاية تدريس هذا الفصل يكون الطالب قادرًا على أن: 

# يتعرف / يوضح مفهوم الحلقات التكرارية. 

# يستخدم جملة )۴٥۴...۸٥×٤(‏ لتنفيذ كود (ع000) لعدد محدد من المرات. 

# يستخدم الجملة (م00...100) لتكرار كود (6006) لعدد غير محدد من المرات. 
+ يعلن عن الإجراء (نا5). 

# يستدعي الإجراء (اں؟). 

» يستخدم (5معغ+03636) أثناء الإعلان عن الإجراء (bں؟).‏ 

+ يعلن عن الدالة .(Function)‏ 

» يستدعي الدالة زممأغعءصبط). 


+ يفرق بين الإجراء اں؟ والدالة مم عع صبط). 
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الفصل الثالث 
التكرار والإجراءات 





درست في الفصل السابق كيفية تنفيذ كود محدد بناءً على ناتج تعبير شرطي وسوف نتعلم 
من خلال هذا الفصل كيفية تكرار كود محدد لعدد من المرات وهو ما يطلق عليه الحلقات التكرارية 


(005ا) باستخدام جملة (4“ا10:...8/6) كذلك باستخدام جملة While...1L00p(‏ 00). 


F‌or...ص×) استخدام الجملة‎ ١-۳ 
أحد جمل التكرار المحدودء حيث تستخدم عندما نرغب في تكرار‎ ۴٠١ ... 1/6 جملة التكرار‎ 


ع معين محدد من المرات. 


الصيغة العامة لهذه الجملة: 


For Variable = Start Value To End Value Step Add Value 
Code 


Next [Variable] 





حيث: 
18 : اسم المتغير الذي يمثل العدادء ويجب أن يكون نوعه رقمي (صحيح أو عشري). 
2 56316: قيمة بداية العداد أو بداية التكرار وهي قيمة رقمية. 
1ت 00 : قيمة نهاية العداد أو نهاية التكرار وهي قيمة رقمية أيضًا. 
ما۷ 200: قيمة زيادة العداد أو القيمة التي يزيد بها العداد حتى يصل إلى قيمة النهاية. 


©200: عبارة عن أمر أو أكثر المراد تكراره ويكون بين بداية الحلقة التكراربة 01! ونهايتها ٤×ه١.‏ 
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الفصل الثالث 


التكرار والإجراءات 


«Step Add Value إذا كانت قيمة الزيادة موجب 1. فإنه يمكن الاستغناء عن كتابة‎ )١( 
.1 باعتبار أن القيمة الافتراضية لزبادة العداد موجب‎ 


)( كتابة اسم متغير العداد بجوار Next‏ اختياربة. 





وسوف تتمكن عزيزي الطالب من استخدام هذه الجملة من خلال التدريبات المتدرجة التالية: 


تدريب (۱-۳): 


صمم نافذة النموذج التالية» بحيث يظهر صندوق رسالة عليها الأعداد من ١‏ : ۳ عند 
الضغط على زر "عرض الأعداد من ١‏ إلى ٣‏ كما هو موضح بشكل :)١-(‏ 


)١(‏ صمم نافذة النموذج كما بالشكل التالي: 


Designed By: Fatma Abdallah‏ كاج 


عرض الأعداد من ١‏ الى ٣‏ 





شكل )١-۳(‏ النموذج )۴٠١۳(‏ المطلوب في تدريب )١-7(‏ 
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الفصل الثالث 


التكرار والإجراءات 





(؟) استعن بالجدول التالي لفهم طبيعة عمل البرنامج» وادرس الكود بمساعدة معلمك: 
كما هو موضح بجدول (۱-۳): 


الكود (©0001) 


Dim H As Intege 
For MH = 1 To 3 

MsgBox (H) 
Next 





جدول )١-۳(‏ خريطة التدفق والكود لتدريب )١-۳(‏ 
والجدول التالي (۲-۳) يوضح تتبع سير الكود (©0006): 


Dim M As Integer 

الإعلان عن متغير العداد 

For M=1 to 3 

بداية العداد اللا من ۳:١‏ 

MsgBox M 

جملة التكرار 'طباعة قيمة 1/1" 

Next 

نها ية الحلقة التكرارية حيث يعود البرنامج 
إلى جملة ۴١١‏ ويختبر تخطي العداد لقيمة 
نهاية الحلقة التكراريةء فإذا كانت قيمة 


(زيادة الاا بواحد) 1+1 -ال! 
هل قيمة ١‏ أكبر من قيمة 
النهاية (الناتج ©5315آ) 
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التكرار والإجراءات 


١ 1 ا‎ 

21 جل : ا 3 

A‏ ا aC‏ جر 
١042-0‏ ا ره ا 


العداد اقل من أو تساوي قيمة النهاية يزيد 
العداد بقيمة الزبادة وبنفذ خطوات التكرار. 
M‏ “اه1/15056 'جملة التكرار" 
طباعة القيمة الجديدة للعداد بعد الزبادة 
Next‏ (زيادة N‏ بواحد) 2+1 -ال! 
نفس الإجراء السابق ذكرة هل قيمة ١‏ أكبر من قيمة النهاية 
(الناتج ©7215 ) 
M‏ >80 gوNs‏ 'جملة التكرار" 
طباعة القيمة الجديدة للعداد بعد الزبادة 
Next‏ 
نفس الإجراء السابق ذكرة هل قيمة 1 أكبر من قيمة النهاية 
(الناتج (True‏ 
الخروج من حلقة التكرار وتنفيد 
الأوامر التالية ٠×٤‏ إن وجدت. 





جدول (۲-۳) تتبع سير الكود بتدريب )١-۳(‏ 


(۳) اكتب الكود في معالج الحدث الخاص بزر "عرض الأعداد من ١‏ إلى ”". 
(4) قم بتشغيل البرنامج بالضغط على (۴5)» ثم انقر زر الأمر "عرض الأعداد من ١‏ الى "". 


لاحظ ظهور صندوق رسالة (1/15615017) يعرض الرقم ١‏ وعند النقر على زر (016) يظهر صندوق 
رسالة (1/159058601) آخر يعرض الرقم ۲ وهكذا حتى القيمة ”. كما هو موضح بشكل (5-1): 


printnumbers 





شكل (۲-۳) صندوق الرسالة (×ە8وءN‏ ) 
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الفصل الثالث 


التكرار والإجراءات 





تدريب (۲-۳): 
عدل الكود في التدريب السابق -بمساعدة معلمك- لعرض الأعداد من ١‏ إلى ۳ في صندوق نص 
:(TextBoxX)‏ 
)١(‏ اضف صندوق نص إلى النموذج باسم (1©671580171) كما هو موضح بشكل (۳-۳): 







| 55 || لعا | ح | Designed By: Fatma Abdallah‏ كام 


ظ اا اسم صندوق النص:801غ)762 


شكل )۳-۳( النموذج (Form)‏ المطلوب تصميمه في تدربب (*-؟) 
(۲) عدل الكود (©0006) بحيث تطبع الأرقام داخل صندوق النص (<16<65801) كما يلى: 


Private Sub Buttonl Click (ByVal sender As 537:5 نا . للاقنا‎ 
Dim um ûs [Integer 
For m = 1 To 3 
Me .TextBox1 .Text = Me. TextBox1 .Text اتج‎ 
Hext m 
End Sub 
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الفصل الثالث 


التكرار والإجراءات 





| الأمر داخل الحدقة التكرارية والذى يعنى ووضصع قيمة المتغير (M)‏ بجانب ما هو موجود داخل 
صندوق النص (1©715801)» باستخدام معامل الريط & لريط سلسلتين حرفيتين ببعضهما. 


؟ - فى حالة كتابة السطر المشار إليه بهذه الطربقة 167<1-177. 106.16740171 لن نلاحظ تغير قيمة 
المتغير (1/1) أثناء التنفيذ وانما سيظهر آخر قيمة فقط وهي ” لأن عرض الناتج سيتم في نفس المكان 
فيظهر آخر قيمة فقط. 

(۳) شغل البرنامج. 

(4) اضغط الزر "عرض الأعداد من ١‏ إلى ٣‏ لاحظ ظهور الأعداد في مربع النص» كما هو موضح بشكل 


:)6-۳( 





a Designed By: Fatma Abdallah ss 


شكل )٤-۳(‏ النموذج )۴١١۳(‏ بعد نقر الزر في وضع التشغيل 





تحسين شكل المخرجات 
)١(‏ إذا تم الضغط على زر " عرض الأعداد من ١‏ إلى ۳ مرة أخرى يتكرر طباعة الإعداد من ١‏ إلى ٣‏ 


مع كل ضغطة. كما هو موضح بشكل (”-ه): 
12313 


شكل (-ه) الأرقام في مربع النص 76745801 بعد نقر الزر مرة أخرى 





رالكمبيوتر وتكنولوجيا المعلومات - الصف الثالث الإعدادي 3 






0 

ID, 

ڪڪ ي ۰ 4+ % 
الجمهوزية مر الهريكة | | 


ا Û (ZE ON‏ ¢ تم 
أخ) | كنا U‏ ذه لات - ا 
00 8 اع كي - هم | ١‏ كت ا ١‏ م 
١ ODE‏ اير ١‏ کی jE‏ ¢ / 0 
90 ر 1 1 67 7 2 و 2 ہے a ١‏ 2 : 71 و جر ۶ [ak‏ 
ا ر سے اولب 7 ا ڪل e‏ ) 
E 0‏ عه 





لذلك يمكن إضافة الأمر )٠.٠٠١×80×1.1٠×٤="(‏ قبل الحلقة التكرارية لمسح محتويات صندوق 
النص )٠١۴×80×(‏ قبل تنفيذ الحلقة التكرارية. 


(۲) يمكنك -عزيزي الطالب- عرض الأرقام داخل صندوق النص («76:480) بحيث يكون كل رقم في 


سطر جديد باتباع الآتي: 
ه اضبط قيمة الخاصية (15©6!أ]اناالا) إلى (116) لأداة التحكم (1©<4860171) للتعامل مع 


سطور متعددة في صندوق النص. 
» عدل الكود داخل الحلقة التكراربة بإضافة رمز مفتاح الإدخال ۴اا "۷C‏ كما يلى: 


Private Sub Buttonl Click (ByVal sender As System.Object, ByV 


Dim m As Integer 1 
Me. TexTLBOXl]l.TexL = '"' 
For m = 1 To 3 
Me .TexLtBOxXlI .TexL = Me. TextBoxl . Text & (bert 7) 
Next m 


End Sub 


ثابت حرفي يستخدم لإضافة رمز مفتاح الإدخال وسطر جديد 





VbCrLf=Visual Basic Carriage Return Line Feed 


شغل البرنامج» ثم اضغط زر 'عرض الأعداد من ١‏ الى "٣‏ كما هو موضح بشكل :)١-۳(‏ 


al Designed By: Fatma Abdallah‏ ظ 


عرض الأعدد من ١‏ الى ۳ 





شكل )١-۳(‏ ظهور الأرقام المطلوبة في سطور 
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کے م ا“ 
EM IEE‏ التكرار والإجراءا 





بالضغط على الزر أكثر من مرة سوف يتم مسح محتوى صندوق النص وإعادة كتابة الأرقام مرة أخرى. 


نر ییا (۳-۳): 


استخدم خبرتك من التدريبين السابقين في عمل برنامج لعرض جدول ضرب العدد (۳) في صندوق 
نص (1©74501) مستعيئًا بالكود التالى: 


Dim m, product As Integer 
Dim str As String 
Me , TextBox] . Text = "" 
For mM = 1 To 12 
str = 3 & "x" & 71 & "-'" 
product = 3 * m 
Me. TextBox]. Text = Me, TextBoxl.Text & str & product & vbCrLf 
Next m 


-١‏ تم تعريف متغير رقمي صحيح باسم (01001161) لتخزين حاصل الضرب به مع كل تغيير في قيمة 
المتغير (1/1). 
تم تعريف متغير حرفي باسم (/51) لتخزين شكل جملة حاصل الضرب بحيث نحصل على الناتج بالشكل 
التالي (=3×1 او =3×2 وهكذا) كسلسلة نصية مع كل تغيير في قيمة المتغير (/1). 
تم عرض قيمة المتغير (511) ثم معامل ربط & ثم قيمة المتغير (01001061) في صندوق النص 
.(TextBox)‏ 


4- يمكن كتابة الكود بدون استخدام هذه المتغيرات (3:136185/ا) كما يلي: 


Dim m As Integer 1 1 5 
Me .TextBox] .Text = "1 شكل حاصل الضرب‎ 
For mM = 1 To 12 


Mae. TextBox] .Text = Me. TextBox] .Text & 3 & "ع"‎ & m & "=" & 3 * m & vbCrLf 
Next m 
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الفصل الثالث 


التكرار والإجراءات 





شغل البرنامج» ثم اضغط زر "عرض جدول الضرب ”". لتكون نتيجة التنفيذ كما هو موضح بالشاشة 
التالية شكل (۷-۳): 


3213 
3522-6 
3x 9ح تق‎ 
34-2 
325-15 
326-18 
IX 7T=21 
ع3‎ - 4 
ال‎ 7 
3x10-=30 
3211-3 i. 
3212-56 2 


عرض جدول ضرب م 


شكل (۷-۳) عرض جدول ضرب ” 











دريب (4-9): 
عدل البرنامج بالتدريب السابق لعرض جدول الضرب الخاص بأي رقم يتم إدخاله من خلال مريع نص 
(*1©715801) كما هو موضح بشكل (۸-۳): 


a Designed By: Fatma Abdallah 


Sx1=5 
522-10 
5:3-15 
54-210 
55-5 
56-310 
51-55 
SX8=40 
SxX9=45 
5110-5100 


إدخل رقم جدول الضرب المطلوب 


5211-5 
512-610 
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Ge 
آي بي‎ / ' 
ت ا د 2 و‎ 7 - 8 2 a) 
0 | | اللا‎ | 0 | EE 2 ا‎ 
او‎ 7 13 9 4 
۶ قي عه‎ 3 





الكود بعد التعديل كما يلي: 





Dim um, product, HUM As Integer 







He. TEKTBODK? . Text 


Dim 12ت‎ ûs 552111 


He. TexLBOKl1.TekL = "" 
To 12 
str = NUM KD gm & "=" 


— NUM + 


For wm = 1 


product 


He. TEeEKTBOKI.TexL = He. TeKLBOKI. Tet & str & ل ماع قوعم‎ YTbErLf 


Hext m 


لاحظ استبدال الرقم ۳ بالمتغير (1/الالاا) والذى خصص له القيمة التي تم إدخالها في صندوق النص. 


۴٥١..۸له×٤ التحكم في البداية والنهاية ومقدار الزيادة فى جملة‎ ٠-١-۴۳ 


لاحظنا فى التدريبات السابقة أن قيمة البداية دائمًا أصغر من قيمة النهاية لذا كانت زبادة 
العداد قيمة موجبة كما أنها كانت قيمة الزيادة الافتراضية (موجب واحد).ء ولكن يمكننا تحديد قيم زيادة أخرى 
بعد ))5)6٥(‏ فقد تكون قي قيمة رقمية صحيحة أو عشربة موجبة أو سالبة. والجدول التالي يوضح حالات 


For I = 1 To 10 Step 2 ١ لعرض الأعداد الفردية من‎ 


= He. TexLBoOxXI1. Text & 1 ك5‎ vTECErLf 


e 
۲ لعرض الأعداد الزوجية من‎ 


00 


= He. TextBox1. Text &4 1 كذ‎ YECrLf 


لعرض الأعداد التي تقبل 


. TExKL 


5 tep 


. Tet 


القسمة على " من ° إلى Me.TextBox1.Text & 1I & 750212 ١‏ = 
”. 


ep -2 لعرض الأعداد الزوجية مرتبة‎ 
KL = Me. TexLBoxl.Text &4 I & vbCrLf 
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He . TexLBOoOKI 
Next 


For I = تن‎ To 10 
He . TExKTtBOKI 
د ذا‎ 


For I = 3 To 20 


He. TexLtBoxKI. 


Next 


For I = 10 To 1 


He , Tez#EEGOKI. 


Hext 



















gaa‏ . ثال* 
E‏ 4 كرك ا vv 1 a ١‏ ا ( 
ANZ ON IE‏ ر و : 
28 ا 5 0 ر ران و م 76 b4 ١‏ 1 
و ٥‏ 2 د | لو 0 سے | © تب 1 1 0 
ثرت زا ار جر لعب لم وهر 1 
کک ثرح ١م‏ 5 : 7 72 . 7 





لعرض الأعداد من 1.50 

إلى 0.5 بتناقص 0.05 كل 

مرة. 

لعرض الأعداد من 1 إلى قيمة 

8 بمعدل زيادة قيمة ©. 
جدول (۳-۳) أمثلة متنوعة على توظيف جملة ۴٥۴ ... ×٤‏ 











For I = 1.5 To 0.5 Step -0.05 
He. TextBoOK1. Text = He. TextBoKI1. Text & 1 كذ‎ vTEErLf 
Hext 














For 1 = 1 To B Step CC 
He . TextEBGOxK] . Text = He. TextBoxKI1. Text & I & TECrLf 
Hext 





نستنتج من الأمثلة بالجدول السابق أنه: 


١-يمكن‏ تحديد معدل الزيادة للمتغير بكلمة (5660) ثم كتابة قيمة رقمية أو متغير رقمي. 

؟-معدل الزيادة يجب أن يكون سالبًا إذا كانت قيمة البداية أكبر من قيمة النهاية (مثال 5:؛). 

٣-يمكن‏ لقيمة البداية أو النهاية أو معدل الزيادة أن يكون عدد عشري وفي هذه الحالة يجب 
تعريف متغير الحلقة من نوع يقبل الكسور العشرية مثل النوع 5116916 (مثال .)١‏ 

- يمكن لأي من قيمة البداية أو النهاية أو معدل الزيادة أن يكون متغير(ءاطهااة۷) (مثال .)١‏ 


7 استخدام Do while‏ 
استخدمنا جملة التكرار المحدود ۸٥×٤‏ ... 07! لتنفيذ كود معين عدد من المرات» ولكن 
أحيانًا كثيرة قد نرغب في تكرار 0016© معين حتى يتحقق شرط معين أو أن يتم تنفيذ الكود طالما أن كان 

شرط تنفيذ جمل التكرار صحيحاء وبالتالي يوجد جمل تكرار أخرى مثل جملة (م0ه! ... eازاW‏ 060). 
تستخدم جملة (000! ... ااا“ 00) لتكرار كود معين لعدد من المرات غير معروف نهايته مسبقًا 


وانما بناءً على شرط معين» لذلك فهي مفيدة في حالة عدم معرفة عدد مرات التكرار بشكل قاطع. 
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الفصل الثالث 


التكرار والإجراءات 





التكرارية -استقبال الاسماء - عند إدخال كلمة "800" مثلا. 


الصيغة العامة لهذه الجملة: 


Do While Conditional Expression - تعبير شرطي‎ 


Code 





سيتم تنفيذ الكود بين بداية الحلقة التكرار "٠ا۷‏ 0" ونهايتها "٠-000"‏ طالما أن التعبير الشرطي 
صحيح (1906).: فإذا لم يتحقق الشرط لأي سبب يتم الخروج من الحلقة التكراريةء وتنفيذ الكود بعد 007 ! 
إن وجد. 
تدريب (0-75): 
صمم نافذة المشروع كما هو موضح بنافذة النموذجء وذلك لاستقبال عدد موجب» وبالضغط على زر 
"أعداد فردية" تظهر الأعداد الفردية مرتبة تصاعديًا من ١‏ حتى الرقم الذي تم إدخاله» وبالضغط على زر 
"أعداد زوجية" تظهر الأعداد الزوجية مرتبة تصاعديًا من ١‏ حتى الرقم الذي تم إدخاله في صندوق قائمة. 


كما هو موضح بشكل :)٩-۳(‏ 


a Forml 


أعداد زوجية 





شكل (”-1) واجهة المستخدم لعرض الأرقام الفردية أو الزوجية 
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الفصل الثالث 


التكرار والإجراءات 





ناقش الأكواد بالجدول التالي مع زملائك؛ ثم نفذه تحت إشراف معلمك- 


١-كود‏ البرمجة التالي لإجراء الحدث (01161) الخاص بزر 'أعداد فردية" بطريقتين الأولى باستخدام جملة 
التكرار "×٤‏ ... 501, والأخيرة باستخدام جملة التكرار 060 ! ... :Do While‏ 


الطريقة الأولى الطريقة الثانية 
Integer‏ كت 1 Integer Dim N,‏ هت Dim WN, i‏ 
N = TextBoxl . Text HN = TextBox1l . Text‏ 


LI1stBoxK1 . Items . Clear )( ListBoxl . Items .Clear () 


1 = 1 


١ ١ For 1 = 1 To N Step 2 

Do While 1 ع-#ه‎ WN 56 ٠ ١ 
ListBoxl . Items . Add (i) ListLBoxl1 . Items . Add (1) 
و و و“ د‎ Hext 





استخدمك مهاراتك في تعديل ما يلزم بالكود لتنفيذ ما يلي تحت إشراف معلمك-: 
)١(‏ عرض الأعداد الزوجية في معالج الحدث الخاص بزر 'أعداد زوجية". 
(۲) عرض الأعداد الفردية أو الزوجية مرتبة تنازليًا بدلاً من تصاعديًا. 


:)٦-۳( تدريب‎ 


صمم نافذة البرنامج» بحيث يستقبل عدد موجب» فيعرض مجموع الأعداد الفردية في الأداة 
3ه حتى الرقم الذي تم إدخاله عند الضغط على زر 'مجموع الأعداد الفردية" في الأداة 2130613 
ويعرض مجموع الأعداد الزوجية في الأداة 13١1ا‏ حتى الرقم الذي تم إدخاله عند الضغط على زر 
'مجموع الأعداد الزوجية" في الأداة 1350613. كما هو موضح بشكل :)٠١-*(‏ 
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الفصل الثالث 


التكرار والإجراءات 





شكل )٠١-*(‏ واجهة المستخدم لعرض مجموع الأعداد فردي وزوجي 


استعن بالارشادات التالية لإنتاج البرنامج: 


-١‏ يمكن برمجة الكود في إجراء الحدث (1ع011)) الخاص بزر "مجموع الأعداد الفردية" بطريقتين كما يلي: 


الطريقة الأولي الطريقة الثانية 
Dim HN, 1, sum AS [Integer Dim HN, 1, sum AS Integer‏ 
N = TextBox] .Text‏ اا 


For 1 = 1 To N Step 2 
sum = sum + 1 


Next 


Label3. Text = sum Label3.Text = sum 





"- عدل ما يلزم في الكود السابق لعرض مجموع الأعداد الزوجية عند الضغط على زر "مجموع الأعداد 
الزوجية". 
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الفصل الثالث 


التكرار والإجراءات 





Procedures الإجراءات‎ 


إلى 


مقدمة 


عزيزي الطالب عند إضافة نافذة نموذج جديدة يذشأ تصنيف (01355) جديد باسم 501111 وفي 
نطاق هذا التصنيف نعلن عن: 
.١‏ إجراءات الأحداث. 
۲. المتغيرات. 
۳. الثوابت. 
كما هو موضح بشكل )١١-*(‏ 


عققله Public‏ ع 
Dim(total) as Integer‏ 





Private sub furton1_ClicDPByva1 sender As System. Ubjec 
"10 عرض الأعداد القردية من 1 إلى‎ 
Di 5 Integer 
Label1.Tegt = ™™ 
For 1 = 1 To 10 Step 2 
Label11.Text = Label]l1.Tekt & " " & 1 
Hext 
End Sub 





Private SubKButton# ClickJEyVal sender As System.UbjJec 


عرض الأعداد الزوجبة من 1 إلى 10" 
al Integer‏ 


Labell.Tegt = ™™ 
For 1 = 2 To 10 Step 2 
Label11.Text = Label]l1.Tegt & " " & 1 
Hext 
End Sub 


End Class 


شكل )١١-۳(‏ العناصر (1716116165) المعلن عنها في نافذة الكود (Code Window)‏ 
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الفصل الثالث 


التكرار والإجراءات 





ويمكن ملاحظة الإعلان عن الآتي من الشكل :)١١-۳(‏ 
١‏ - تصنيف (01355) تحت اسم .)۴٥۲۳٣1(‏ 
١‏ - متغيرات (31130185/) تحت أسماء (¡ ,0681). 
*- إجراءات الأحداث (Event procedures)‏ تحت اسم .(Button1_Click, Button2_Click)‏ 
وعند تشغيل البرنامج تظهر واجهة المستخدم كما هو موضح بالشكل )١١-۳(‏ 


8 حرفي الزوجي والفردي 


| جى ) 


Label 1 





شكل )١١-۳(‏ واجهة المستخدم 


ويمكنك عزيزي الطالب الإعلان أيضًا عن ما یسمی بالإجراءات (0165ا06601/) حيث يُعلن عنها مرة 
واحدة» ولكن يمكن اس تدعاؤها عديد من المرات» وهذا يساعد على تجنب تكرار كتابة كود في أكثر من 
مكان» فقط يمكنك استدعاء هذه الإجراءات باسمها في المكان الذي تريد عندما تريد. 


(Procedure) الإجراء‎ "-* 


مجموعة من الأوامر والتعليمات تحت اسم ماء يمكن استدعاءه بهذا الاسمء ليتم تنفيذ هذه 
الأوامر والتعليمات» ونلجأ لإنشاء (050ا5) إذا كان لدينا مجموعة من الأوامر يتكرر استخدامها في أكثر من 


موضع داخل التصنيف. 
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الفصل الثالث 


التكرار والإجراءات 





٠-٣‏ الإعلان عن الإجراء (انا5 


عند إنشاء إجراء (ا5Su)‏ يجب الإعلان عنه بالصيغة التالية: 


الصيغة العامة للإعلان عن لابا5 
Sub Name (Parameters)‏ 
Code‏ 
End Sub‏ 


۶ 


حيث ان : 
Name -١‏ : تعبر عن اسم الإجراء .(Procedure)‏ 


؟- 13131361615: عبارة عن القيم التي سيتم استخدامها داخل كود الإجراء عند استدعاء 


.(Procedure) الاجراء‎ 


*- (000©6) مجموعة الأوامر والتعليمات التي ستنفذ عند استدعاء الإجراء (5نا5). 


لاحظ 


تكرار الكود المكتوب داخل كل من إجراء الحدث الخاص بزر (ءiا٥_1١٥)ا8u)‏ لطباعة 


الأعداد الفرديةء واجراء الحدث الخاص ن (Button2_Click)‏ لطباعة الأعداد الزوجية في تدريب 


7 
بالقيمة )١(‏ في الأعداد الفردية» كما هو موضح بشكل .)١١-۳(‏ 
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الفصل الثالث 


التكرار والإجراءات 





تدريب )١-*(‏ الإعلان عن الإجراء (05ا5) واستدعاءه 


يمكنك عزيزي الطالب أن تستخدم الإجراء (اا5) لتجنب تكرار كتابة الكود كما هو موضح بشكل )١١-۳(‏ 


E Fublic Class Forml 
Dim total As [Integer 


Private Sub Buttonl Click(ByVal sender As System. Ub 


ست الأعدطد القردية من 1 ال 10" 
استدعاء الإجراء }ںو س “ShowOddOrEvenlD‏ 


Eiki sub 


Private Sub Button? Click(ByVal sender As System. Ub 


عن اعدد الروحية من 1 ال 10" 
استدعاء الاجراء }ںو س 102 520080028725 _ صع 


Endî دزت[‎ saa 


الإعلان عن الإجراء رانك کي ShowOddOrEvenlD‏ مم5 


Dim 1 As 17155321 
Label1.TegL = """ 
For 1 = 1 To 10 Step 2 
Label1.Text = Label1.Text & " " © 3 
Hert 
End Sub 








الكود (©6006) الذي ينفذ عند 


End Class (sub) استدعاء الإجراء‎ 


شكل )١”-”(‏ الإعلان عن (05ا5) واستدعاءه 


في شكل (4-") تم الإعلان عن إجراء باسم (51011/000101121761) يحتوي على الكود المكرر. 
ويتم تنفيذ الإجراء بكتابة اسمه في أي إجراء آخر داخل التصنيف» مثل: كتابة اسمه في كل من إجراءات 
الأحداث (Button1_Click)‏ و .(Button2_Click)‏ 


لاحظ 
عند اختبار البرنامج بالضغط على زر 'زوجي" أو زر 'فردي" يعطي نفس النتيجة والسبب أن قيمة 
بداية عملية التكرار واحدة وهي القيمة .)١(‏ كما هو موضح بشكل (”-4 )١‏ وشكل )٠١-۳(‏ 
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الفصل الثالث 


التكرار والإجراءات 


عرض الزوجي والفردي 





شكل (”-4 )١‏ واجهة المستخدم 


Sub 507000021 ( 

Dim 1 كك‎ Integer 

Labell1l.Text = "" 

®: ( } 1 Ta 10 Step 2 

2 Label1.Text = Label1.Tegt خش‎ " " £ 1 





Hest 
End Suk 


شكل )٠١-۳(‏ جزء من نافذة الكود (مdهع)‏ 
لذا ينبغي استخدام المعطيات (3131764615) كما يتضح في التدريب التالي: 
تدريب (۸-۳) الإعلان عن (/5313176161) واستخدامه 
لحل هذه المشكلة لابد أن يستقبل الإجراء (510011/0010011237©17) قيمة )١(‏ أو (۲) عند استدعاء ه. 
تستخدم هذه القيمة في تحديد ما إذا كان سيتم عرض الأعداد الفردية آم الزوجية وذلك بإضافة المتغير 


(51316) واستدعاؤه فيما بعد. 
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I‏ : لفصل 
د 7 0 00 
1 0 4 ا 40 خظ 
: کس 2 اي العاه 1 لے 
ل O‏ 
2 ع0 4 ا 7 نمه - ف چ 4 4 | 0 | الا | | بي 
١ ١‏ 5 
7 قو ع ۶ 








كما هو موضح بالشكل )١5-(‏ والشكل م 





Sub ShowOddOrEven (ByVal ( (Start عفرل‎ Integer) 
Dim 1 As [Integer 


Labe11 .Texk > "" Parameter الإعلان عن‎ 


Far i € Start) To 0 Step 
وري‎ 
Hext 
End Sub 


E.t = Labell.Text & " " & 1 


استخدام هذا Parameter‏ 


شكل )١5-”(‏ الإعلان عن (/2373206161) 





نجد في شكل (1-4) أنه تم الإعلان عن إجراء باسم (511011/0000153761) والإعلان عن 
(313106161) باسم (51311): وتم استخدامه في الكود حتى يمكن تحديد قيمة بداية عملية التكرار ويناء 
علية تعرض الأعداد الفردية أو الزوجية. 


Private Sub Buttonl Cl1ick(EyVal sender f 
'10 عرض الأعداد القردية من 1 إلى‎ 


ShowÛddûÛrEven ( 1} 
Argument تحديد قيمة‎ 


End Sub 
K(ByvVal sender م‎ 
عرص الأعداد‎ 











Private Sub Buttonê Cp 
'10 وجية من 1 إلى‎ 
11د‎ 102 

End Sub 


شكل (۱۷-۳) وضع القيم (Arguments)‏ 


ويظهر في شكل (۱۷-۳) استدعاء الإجراء (511011/00010111761) مرة بقيمة )١(‏ عند عرض 
الأعداد الفردية» وأخرى بالقيمة (؟) عند عرض الأعداد الزوجية» ويطلق على هذه القيمة (057614ا8191). 


لاحظ 


عند اختبار البرنامج نجد أنه عند الضغط على زر 'زوجي" يعرض الأعداد الزوجية» بيذما يتم 


عرض الأعداد الفردية عند الضغط على زر 'فردي". كما هو موضح بالشكل (۱۸-۳) وشكل (۱۹-۳) 
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الفصل الثالث 


التكرار والإجراءات 


عرض الزوجي والفردي 


.)23132061©/( عند الإعلان عن إجراء يمكن استخدام أكثر من‎ ٠ 


ه عند استدعاء الإجراء تحديد فيم من خارج الإجراء يطلق عليها (8191017©111). 
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الفصل الثالث 


التكرار والإجراءات 





Function الإعلان عن الدالة‎ ٥-۳ 


الدالة (110164101) عبارة مجموعة من الأوامر تحت اسم معين -يفضل أن يكون معبرًا عن وظيفتها- 
يتم تطبيقها على مدخلات أو وسائط (23131764615) وتعود بقيمة. 


صيغة الإعلان عن الدالة1100عمن] 


Function Name (Parameters) As DataType 
Code 
Return Value 


EndFunction 


.(Function) يعبر عن اسم الدالة‎ : Name -١ 

؟ - 06لا36317]: تحدد نوع البيان الخاص بالقيمة الراجعة من الدالة (2©11012اناا). 
۳- 8313176165: تمثل الوسائط التي سوف تستخدم في الكود (©600). 

4 - ©006©: مجموعة الأوامر والتعليمات التي ستنفذ عند استدعاء الدالة (066101انا). 


ه- علااجلا: القيمة الراجعة من الدالة (0©1101اناا). 
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الفصل الثالث 


التكرار والإجراءات 





تدريب (1-7) حساب مجموع رقمين 


عزيزي الطالب بمعاونة معلمك نفذ ما يلى: 


)۲١-۳( صمم نافذة النموذج (101757) كما هو موضح بالشكل‎ )١( 


العدد الأول 


العدد التادي 


كا 





شكل )25١-”(‏ واجهة المستخدم 


)؟١-( افتح نافذة الكود بالضغط على مفتاح (17)» ثم اكتب الكود التالي» وذلك كما هو موضح بالشكل‎ )١( 


Public Class 525 
Function Sum [ByVal First As Single, ByYal Second As Single} As Single 
Dim total As Single 
total = First + Second 
Return total 


End Function 
End Class 


شكل )۲٠-۳(‏ نافذة الكود معلن بها دالة تحت اسم (17نا5) 
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الفصل الثالث 


التكرار والإجراءات 





عزيزي الطالب/ لاحظ 
ه تم الإعلان عن الدالة (51012) من النوع (©5199©1)» بحيث تس ققبل قيمتين الأولى (٤5٣أ۴)»‏ 
والأخيرة (56©0101). 


9 تمالإعلان عن متغير (60131) من النوع (©5101) وخصص له ناتج جمع القيمتين (111516) 
و(Second)).‏ لإرجاع القيمة (/6018) باستخدام .)Return)‏ 





۳- أنشئ إجراء الحدث الخاص بزر الأمر (8100401)؛: ثم اكتب الكود الموضح بالشكل (-؟؟) 


Private Sub Buttonl Click{(ByVal sender As 
Dim x As Single = 1 اهمع‎ 1821 . Tet 
Dim y As Sinqle = TextBOEK2Z .Text 
Label34.Tegt = SUDE, ¥} 

End Sub 


شكل (۲۲-۳) استدعاء الدالة (ںSu)‏ 


عزيزي الطالب/ لاحظ 


تم الإعلان عن المتغيرين (×) و (لا) وتخصيص مدخلات المستخدم لكل منهما في صناديق النص 
(16<4860)؛ ولعرض ناتج الجمع تم تخصيص قيمة الدالة (51017) للخاصية (1©“4) الخاصة بأداة 


التحكم (1231©614ا) بعد استقبال القيمتين (×) و (لا). 





عزيزي الطالب/ تذكر أن 


المتغيرات (1/3:1350165): يمكن تخصيص قيم لها أثناء الإعلار 
وكذلك استخدام الفيم المخزنة بها. 
الثوابت (60105143115©): يجب تخصيص قيم لها أثناء الإعلان فقط وكذلك يمكن استخدام القيم المخزنة بها. 





الدوال ٥۸(‏ ٤ء١‏ ا۴): تستدعى فتعود بقيمة في ضوء القيم المخصصة لها. 
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الفصل الثالث 


التكرار والإجراءات 





٤‏ نفذ البرنامج بالضغط على مفتاح (55)., تم ادخل القيم كما هو موضح بالشكل (-*؟) 


العدد الأول ه- 


العدد الثانى ١١/‏ 





شكل (۲۳-۳) واجهة المستخدم 





.(Function) تُعلن عن دالة‎ - ١ 

١‏ - تُحدد (23137614615) الخاصة بها. 

۳ - تُحدد نوع الدالة .(Function)‏ 

4 - تكتب الكود (6006) في نطاق هذه الدالة (۸٥اctہں۴u).‏ 


ه- تعود الدالة (1الاأ©؟1) بقيمة. 
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الفصل الثالث 


التكرار والإجراءات 


7 
اک 










أستلة 
)١(‏ اجب عن الأسئلة مستعينا بالكود التالي: Private Suh Button1 Click (By‏ 
أ- يتم تنفيذ الكود عندما يتم الضغط Dim M As Inteqê?‏ 
............. على أداة التحكم . (اکمل) 3 10 1 = For H‏ 
MsgBox (H)‏ 
ب- تم استخدام الآامر 11( للإعلان عن et‏ 
(متغير - ثابت) من نوع 515 nh‏ مم 
ت- اسم المتغير المستخدم في الحلقة التكرارية هو: aun‏ 
ث- قيمة بداية الحلقة التكرارية ............ وقيمة النهاية .......... وقيمة الزيادة TT‏ 
ج- يتوقف تنفيذ الحلقة التكرارية عندما تصل قيمة المتغير 11 إلى e‏ 
ح- الكود الذي يتم تكراره هو a‏ 


)١(‏ اجب عن الأسئلة التاليةء مستعينا بالكود: 
Private Sub But Repeat _ Click (ByVal sender As System.Opject,‏ 
Dim m As Integer‏ 
Me.Lebel1.Text = '"""‏ 
For m = 5 To 9 Step 2‏ 


Me.label1.Text = Me.label1.Text عق‎ m & vbCrLf 


(المطلوب رقم ۷) 


MsgBox ("انتهى البرنامج''(‎ 
End Sub 
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الفصل الثالث 


التكرار والإجراءات 





ب- يتم تنفيذ الكود عندما يقع الحدث .............. على أداة التحكم a‏ 

ت- للإعلان عن المتغير 17 تم استخدام الأمر O‏ 

ث- جملة التكرار المستخدمة هي : 0 

ج- الكود المراد تكراره هو: 0 

ح- الغرض من استخدام معامل الربط 8 في الجملة ( = 1.14 اع3ا.عالا 
)(Me.label1.Text & m‏ هو: ”5 

خ- اكتب مكان النقط جملة الكود اللازمة لإظهار القيمة النهائية للمتغير " بعد تنفيذ الحلقة 
التكرارية في مريع صندوق رسالة: 


(۳) اجب عن الأسئلة التاليةء مستعينا بالكود: 


Dim n, product As Integer 
Dim str As String 
Me.TextBox1. Text = '""" 
For n =1 To 12 
Str = 3&'"' x" &n&'"' =" 
product = 3 * n 


Me. TextBox1.Text = Me. TextBox1.Text & str & 
product & vbCrLf 
Next n 
End Sub 





ب- الكود (5111979 85 5117 ص0i)‏ الغرض منه الإعلان عن متغير حرفي باسم /51. (صح - خطأ) 
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0 ۳⁄7 
موسي م يري 
پو مر ا الفصل الثالث 
ع الور 5 وک ها 8 
0C‏ وا 1 7 8 ( 200 
SE IS 2 2‏ 
اا ی التكرار والإجراءات 
١ 0‏ 00 1 
ر قو ء۶ جر 








ت - الغرض من الكود (۸ * 3 = 01001061) تخصيص ناتج ضرب الرقم ۳ فى المتغير ۸ ألمت 
ض من ) تخصيص ناتج ضرب الرقم " في المتغير ١‏ للمتغير 
.product‏ (صح - خطأ) 
ث- الغرض من الكود (۸ * 3 = c٤‏ ں۵٥‏ ٣م)‏ تخصيص ناتج ضرب الرقم ٣‏ في المتغير 70010©61م 
للمتغير .١‏ (صح - خطأ) 
ج- الغرض من الكود 
str & product & vbCrLf‏ & أناء 1 . 8011))اء 1 Me.TextBox1].Text = Me.‏ 
وضع قيمة المتغير النصي 5١‏ وناتج المتغير 6001061 كقيمة للخاصية 6×٤‏ لصندوق النص 
61 . (صح - خطأ) 
ح- الغرض من جزء الكود 7061717 الانتقال إلى سطر جديد. (صح - خطأ) 


.١؟‎ : ١ الكود التالي لطباعة جدولا لضرب الأعداد للعدد (4) من‎ )٤( 
المطلوب: عدل الكود بحث يطبع جدولًا لضرب الأعداد للعدد (7) بحيث يكون الناتج في صندوق النص‎ 


كما يلي: 
5 - 7»5 
x7 = 9‏ 7 
3 = 9× 7 
x11 = 7‏ 7 


Dim n, product As Integer 
Dim str As String 
Me.TextBox1. Text = '""" 
For n = 1 To 12 


Str = 4 & '"' x" &n د" يعم‎ "' 


product = 4 * n 


Me. TextBox1.Text = Me. TextBox1.Text & str & 
product & vbCrLf 


Next n 


End Sub 
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الفصل الثالث 
التكرار والإجراءات 





(5) الغرض من الكود التالي طباعة جدولا لضرب الأعداد للعدد (9) من .٠١ : ١‏ 
المطلوب: صوب الأخطاء الأربعة بالكود» حتى نحصل على نتيجة تشغيل صحيحة للكود في الجدول. 


Dim n, product As String 


Dim str As String 

Me.TextBox1.Text = ''""' 

For n = 1 To 10 Step -1 50 
Str =9 & "x<" جه رريخ‎ " =" 
product = 9 + n 


Me. TextBox1.Text = Me. TextBox1. Text & str & 
product & vbCrLf 


Next str 


End Sub 


الكود بعد التصويب الكود الخطأ 
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الفصل الثالث 


التكرار والإجراءات 





(1) الجدول التالي يحتوي على الكود ونافذة النموذج الخاصة بتشغيل الكود لطباعة جدول الضرب لأي 


عدد من ۱:۱۲ . 


المطلوب: اكمل مكان النقط بما يلزم للكود بالجدول لنحصل على ناتج صحيح بعد تشغيل البرنامج. 


5 كه‎ 
أن‎ Designed By: Fatma Abdallah 


Din ,ل‎ product, NUN As Integer 
Din str A3 11111 ا‎ 


53-15 
54-20 
55-25 


WH = He, TextBox Text 0 


ليل 
5x10=50‏ 


He, TextBoxl, Text = "" - 


إل رم جدول الضرب المطلوب 


For 0 = 1 15 | س‎ 
= MH 4 "x" سين‎ ( 
product = NU Fir 
Me, TextBoxl, Text = He, TextBoxl, Text ¢4 str & product & viLrlLf 


لد 

















(۷) اجب عن الأسئلة مستعينا بالكود التالي: 
For I = 1 To B Step LL‏ 


He. TExLBOoOKl. TEKTL = He. TeExLBOKLI.TEeEKL &4 1 & خا تغط‎ 
Hext 


أ- الغرض من الكود: 



















الفصل الثالث 


التكرار والإجراءات 





ت- تبدأ الحلقة التكرارية بالقيمة 017 
ث- تنتهي الحلقة التكرارية عند القيمة 000 
ج- قيمة زيادة العداد O‏ 

ح- الغرض من ا۲٤۷‏ هو 0 O‏ 


(۸) الكود التالي يستخدم في إدخال عدد موجب» وعند الضغط على زر "أعداد فردية" يطبع الأعداد الفردية من 
١‏ حتى العدد الموجب الذي تم ادخالهء وإذا ضغطنا على الزر "أعداد زوجية" فيطبع العداد الزوجية من ؟" وحتى 
العدد الموجب 3 تم إدخاله في صندوق القائمة. 


Dim حت 1 ملظ‎ Integer 

HH = TEKELBOE LI. TeExL 

ListBox1l . Items . Clear () أدخل عدد موجب‎ 

1 = 1 

Do while i 4= WN ei 
Lisl Bom . Items _ مك‎ (1 ( 
1 = 1 هم‎ 








أعداد زوجية 











Loop 








المطلوب: 


a جملة التكرار ف البرنامج هي:‎ )١( 
000 الغرض من الكود (2 + 1 = 1) في السطر قبل الخير هو‎ )۲( 
5100 الغرض من 1,007 هو:‎ )۳( 


60 حدد الاختيار الصحيح لتحديد طبيعة كل جزء من مكونات سطر الكود: 


LIS 1 1 1 د‎ TLC مت اوح‎ LT اح سح 1ل‎ FT { J} 


0 أداة تحكم. 


0 متعغير. 
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الفصل الثالث 


التكرار والإجراءات 





(9) الكود التالي الغرض منه إدخال عدد موجب. فيظهر مجموع الأعداد الفردية في صندوق نص. 


أ- الغرض من الكود 


Lim ,لظ‎ 1, sum AS [Integer | N = TextBox]. Text 
HN = TEeExKLBOK]Î . Text 


1 = 1 

Do 11:11 1 &— [2‏ 
ات = تنلات 
2 + 1 = 1 

Loop 


Laþel3. TexL = 





العدد الموجب الذي تم إدخاله في أداة التحكم ل ل وال E kr‏ 
بالمتغير ا 


)٠١(‏ ضع علامة (”) أمام العبارة الصحيحة أو علامة (*) أمام العبارة الخطأ لكل عبارة مما يلي: 


الإجراء ©01ا506©)0 عبارة عن مجموعة من أوامر وتعليمات يتم تكرارها عدد محدد 
من المرات. 


الإجراء ©01ا5:06©)0 عبارة عن مجموعة من الأوامر والتعليمات تحت اسم معين› 


وعند استدعاء هذا الاسم يتم تنفيذ هذه الأوامر والتعليميات. 


الغرض من استخدام الاجراءات ©01ا2:06©6)0 تكرار كتابة كود معين عدة مرات فى 


البرنامج. 
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الفصل الثالث 


التكرار والإجراءات 


نستخدم الدالة Function‏ . 


مجموعة الأوامر والتعليمات التي يتم وضعها تحت اسم » وعد تنفيذها تعود بقيمة نطلق 


عليها إجراء .Procedure‏ 


مجموعة الأوامر والتعليمات التي يتم وضعها تحت اسم » وعد تنفيذها تعود بقيمة نطلق 
عليها دالة Function‏ . 


عندما يكون لدينا كود معين نرغب في تكراره و في أكثر من موض ع داخل التصنيف 


نستخدم إجراء .Procedure‏ 


عند استدعاء إجراء باسم (137<65)0.05», فإن القيمة بين القوسين يطلق عليها 


.Argument 


الدالة عبارة عن مجموعة من الأوامر والتعليمات باسم معين يمكن أن تأخذ معطيات 


5 5 وتعود بقيمة راجعة مuاVa.‏ 
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ر التكرار والإجراءات 





يؤخذ على لغة ۷8.۸6٤‏ أنها سمحت للمبرمج الإعلان عن دوال واجراءات أخرى يعدها 


.+ 
لنعفسك4ك. 
آي 





)١١(‏ اكمل الجدول مستعيناً بالكود التالي: 


ShowÛdidûÛrcEyven (ByVal Start As [Integer]‏ طناك 
[Integer‏ 25 1 111113 
حت Labell.TegL‏ 
For 1 = Start To 11 Step 2‏ 
Labell1.Text = Labell1.TeKt & " " & 1‏ 
Hext‏ 
End Sub‏ 
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الفصل الثالث 


التكرار والإجراءات 





(۱۲( اكمل الجدول مستعيئًا بالكود التالي: 
Function XXX (ByVal YYY As Integer, ByVal ZZZ As Integer) As Single‏ 
Code‏ 
Return RRR‏ 


End Function 


المطلوب 
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الفصل الرابع 
التعدي الإلكتروني Cyber bullying‏ 


الفصل الرابع 


التعدي الإلكتروني 
Cyber bullying‏ 





بنهاية تدريس هذا الفصل يكون الطالب قادرا على أن: 


¥ 


¥ 


¥ 


¥ 


يعرف التعدي الإلكتروني. 

يحدد وسائط التعدي الإلكتروني. 

يُميز أشكال التعدي الإلكتروني. 

يتبع السلوك الصحيح في مواجهة التعدي الإلكتروني. 

يطلب المساعدة من الأفراد والهينات المسئولة عن حمايته عندما يتعرض للتعدي 
الإلكتروني. 

يذكر الهيئات والجهات المسئولة عن حمايته عند تعرضه لأي تعدي الإلكتروني. 
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الفصل الرابع 
التعدي الإلكتروني Cyber bullying‏ 


3 
اک 


تعد أخلاقيات التعامل مع الإنترنت مع كافة وسائل المعلومات والاتصالات من موضوعات 
الساعة التي تهم الأفراد والمجتمعات والدول» لذا نسعى في هذا الفصل إلى رفع الوعي لدى أبنائنا الطلاب 
بمخاطر التعامل مع الإنترنت» واكسابهم بعض المعلومات والمهارات اللازمة لرفع درجة سلامتهم الشخصية 


فيما يتعلق بالتعدي عبر الإنترنت. 
ومن خلال الإنترنت نستطيع أن نتعلم ... نتثقف .... نتسلى .... نتواصل نتحاور... ولكن 


هناك العديد من المخاطر يمكن أن نتعرض لها منها: 
٠‏ الحصول على معلومات خطأ. 


٠‏ نقع فريسة لبعض المعتدين عبر وسائط الاتصال الإلكترونية. 

ه انتهاك الخصوصية. 

ه انتحال الشخصية. 

ه سرقة حسابنا على مواقع التواصل الاجتماعي مثل 536685001 أو البريد الإلكتروني [50021. 


ه تعرض جهازنا لمخاطر الإصابة بالفيروسات أو برامج التجسس أو برامج القرصنة. 


تعريف التعدي الإلكتروني 
عبارة عن سلوك عدواني متعمد من شخص لآخر عبر وسائط الاتصال الإلكترونية. 
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الفصل الرابع 
التعدي الإلكتروني Cyber bullying‏ 


؟. الإحراج. 


5. الابتزاز. 


۷ ... الخ 
ثانيًا: الوسائط الإلكترونية 
الوسائط الإلكترونية عبارة عن التقنيات التي يستخدمها المعتدي الإلكتروني» وهي كثيرة منها ما يلى: 


.]131[ البريد الكتروني‎ .١ 

. المنتديات الإلكترونية 01101115آ. 

۳. الرسائل الفوربة .Instant Message‏ 
؛. المدونات الإلكترونية /©51090606. 

4. مواقع التواصل الاجتماعي مثل 52660001. 


ثالنًا: أشكال التعدي الإلكتروني 
من أشكال التعدي الإلكتروني: 
-١‏ التخفي الإلكتروني ([211012/11216): 


٠ 
e 
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الفصل الرابع 
التعدي الإلكتروني Cyber bullying‏ 


عبارة عن استخدام اسماء مستعارة تخفي شخصية المتعدي الإلكتروني بغرض عدم كشف أمره 
والإفلات من العقاب. 
؟ - المضايقات الإلكترونية :)١131355176171(‏ 
عبارة عن رسائل عدائيه موجهة ضد شخص أو أكثر. 
"- الملاحقة الإلكترونية :(Cyber stalking)‏ 
هي شكل من أشكال المضايقات الإلكترونية لكن بشكل متكرر حيث يتتبع المعتدي شخص معين 
في كافة الوسائط الإلكترونية ويلاحقه. 
؛ - السب أو القذف الإلكتروني (و,أ٣ها۴):‏ 
عبارة عن نشر كلمات عدائية ومبتذلة ضد شخص أو أكثر من خلال أحد وسائط الاتصال 
الإلكترونية. 
ه- التشهير الإلكتروني (01011119): 
عبارة عن نشر معلومات عن شخص محدد أو أكثر بشكل مسيئ . 
5- الاستثناء الإلكتروني (۸٥اءںاc×ع٤):‏ 
عبارة عن تجاهل شخص او أكثر من خلال وسائط إلكترونية. 
۷- التهديد الإلكتروني (6516215 :)cyber‏ 
عبارة عن إرسال رسائل إلكترونية تحمل تهديد أو وعيد لشخص او أكثر. 


رابعا: كيف تحمي نفسك من التعدي الإلكتروني؟ 


بإتباع قواعد الاستخدام الآمن للإنترنت الآتية: 
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. لا تشارك أحدًا بكلمة السر. 
. إعداد كلمة مرور يصعب استنتاجها. 
. عدم نشر أي بيانات خاصة. 
. تجنب حذف رسائل التعدي . 


. عدم مقابلة أحد تعرفت عليه من خلال الإنترنت. 

. حاذر من إرسال رسائل إلكترونية وأنت غاضب. 

. إطلاع ولي الأمر بمن يضايقك عند استخدام الإنترنت. 

. إنزال البرامج من الإنترنت يكون تحت إشراف معلمك أو 
ولي أمرك. 





مواقف حياتية توضح أهمية الالتزام بقواعد الاستخدام الآمن للإنترنت: 
١‏ - قال عمرو لياسمين أريد أن أرسل رسالة لصديق وليس عندي حساب بريد إلكتروني هل من الممكن أن 
تعطيني اسم المستخدم وكلمة المرور الخاصين بك حتى أتمكن من إرسال هذه الرسالة. 


فى رأيك ماذا تفعل؟ 
الإجابة: لا تشارك أحد كلمة السر. 


؟- قام عمرو بإنشاء حساب بريد إلكتروني خاص به فحاولت ياسمين استنتاج كلمة المرور بأن كتبت اسمه 


ثم سنة ميلاده ففتح الحساب. 
في رأيك ما الخطأ الذي وقع فيه عمرو؟ وكيف يتجنب ذلك؟ 
الإجابة: اختار كلمة سر يسهل استنتاجهاء ولتجنب ذلك عليه اختيار كلمة ذات درجة صعوبة عالية 


تحتوي على أرقام وحروف وعلامات خاصة. وأكثر من ۸ حروف» مع تغييرها كل فترة. 


*- قام رامي بالاشتراك في أحد مواقع التواصل الاجتماعي 536612001, وقام بنشر معلومات تخص أسرته 
مستعرضًا صور الأسرة وأنشطتهم اليوميةء فقام لص بالاستفادة من تلك المعلومات وتمكن من سرقتهم؟ 
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في رأيك ماذا كان يجب أن يفعل؟ وهل هناك مخاطر أخرى يمكن أن يتعرض لها جراء هذا التصرف؟ 
الإجابة: عدم نشر أي بيانات خاصة. نعم مثل: التعرض للتشهير أو الابتزاز أو انتحال الشخصية نتيجة 
وقوع صور العائلة في يد أشخاص غير مسئولة. 

4 -اشتكى أحد الطلاب لمعلمه أن زميله سبه في رسالة بريد إلكتروني» فطلب منه المعلم الاطلاع على هذه 
الرسالةء فأجاب الطالب أنه قد حذف الرسالة» فقال له المعلم: ضيعت دليل الإدانة. 
في رأيك ماذا كان يجب أن بفعل؟ 
الإجابة: تجنب حذف رسائل التعدي. 
ه-قال عمرو لوالده لقد تعرفت على شخص في إحدى غرف المحادثة ويود أن يقابلني. 
في رأيك ماذا كان رد والده ؟ 
الإجابة: حذره بشدة ومنعه من مقابلة غرياء» أو مقابلة من تعرف عليهم عبر الإنترنت. 


5- حدثت مشادة كبيرة في حوار بين عمرو وياسمين عبر أحد مواقع التواصل الاجتماعي أو غرف 
المحادثة» فغضب عمرو غضبًا شديدًا وبعث رسالة تهديد ووعيد لياسمين. 

ما رأيك في تصرف عمرو؟ 

إلكترونية وأنت غاضب". 

۷- يستخدم عمرو الإنترنت في عمل بعض الأنشطة المدرسية بالتعاون مع زملائهء ولاحظ أنه كلما 
الإنترنت لتجنب الإساءة ودفاعًا عن نفسه. 
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الفصل الرابع 
التعدي الإلكتروني Cyber bullying‏ 





الإجابة: تصرف سلبي» وكان عليه أن يلجأ لطلب المساعدة من والده أو أخيه الأكبر أو معلم الكمبيوتر 


لمساعدته فى مواجهة الإساءة بإيجابية. 





۸- اعتادت ياسمين على إنزال أي برامج من جميع المواقع التي تزورها على الإنترنتء فتسبب ذلك في 
إصابة الكمبيوتر بالفيروسات وبرامج التجسس. 


هل توافق على انزال إي برامج غير معروفة من الإنترنت؟ 


الإجابة: لا: بل ينبغي التأكد من هذه البرامج ومصدرها ومراعاة حقوق الملكية الفكرية لهذه البرامج. 





واستشارة أهل الخبرة من الزملاء وولي المر ومعلم الكمبيوتر. 


المزيد من المعلومات 


- من الموضوعات ذات الصلة التي يمكنك البحث عنها وقد سبق دراستها: 


© كشف الهوية. © جدار الحماية. 
© الرموز السربة . © طلب المساعدة. 
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الفصل الرابع 
التعدي الإلكتروني Cyber bullying‏ 


سرقة حساب شخص في مواقع التواصل الاجتماعي أو بريده الإلكتروني أحد المخاطر 
التي يمكن أن نتعرض لها عبر وسائط التواصل الإلكتروني. 


مواقع التواصل الاجتماعي تساعد في التعرف على أشخاص جدد يفضل مقابلتهم 
لتطوبر العلاقات الاجتماعية. 


تمضنا مع قواعد الاستخا ام الآمن يفضل أن تضع كلمة مرور سهلة للبريد الإلكتروني 
الخاص بك حتى تستطيع تذكرها. 
















الفصل الرابع 
التعدي الإلكتروني Cyber bullying‏ 





السؤال الثاني: اكمل الجدول التالي موضحًا رأيك في كل عبارة مما يلي: 


نشر شخص لاسمه ١‏ لحقيق وعنوانه ورقم تليفونه 
عبر الوسائط الإلكترونية. 


إنزال إي برامج تتاح لك على الإنترنت. 


الرد السريع الغاضب على تعدي قد تتعرض له 
عبر الإنترنت. 

حذف جميع الرسائل التي تم تهديدك بها في 
مواقع التواصل الاجتماعي أو البريد الإلكتروني. 





السؤال الثالث: مواقف حياتية 


(١)اشترك‏ أحد الأشخاص في أحد مواقع التواصل الاجتماعي. كلما راسل أحد الأعضاء أو حاول إجراء 
محادثة فورية لاحظ عدم الرد عليه. 


- يعتبر ما حدث شكل من أشكال O‏ 000 
- ماذا تفعل لمواجهة ذلك التصرف: 00 


(۲) اشتركت في أحد مواقع التواصل الاجتماعي وفوجئت بتهكم أحد الأشخاص على مصر والحديث عن رموزها 
بشكل غير لائق. 
- حدد )٤(‏ أريعة تصرفات إيجابية يمكن من خلالها الرد عليه: 
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